oleObject textbox
10.12.2004 21:55:10
joe
meine frage lautet, warum der folgende code so langsam läuft (ca. 50 sec):
Sub Makro2()
Dim myoleobj As OLEObject
Dim mytext As Object
Dim strBox As String
Dim i As Integer
'Erstellen einer Textbox auf dem Tabellenblatt
For i = 0 To 100 Step 1
Set myoleobj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=(10 * i), _
Top:=10, _
Width:=8, _
Height:=10)
'linken Auswählrand auf Breite 0 setzen
myoleobj.Object.SelectionMargin = False
myoleobj.Name = "box " & i
Debug.Print myoleobj.Name
Next
End Sub
anscheinend mache ich doch irgendetwas falsch, oder?
vielen dank im voraus für eure mühen
joe
Anzeige