Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

oleObject textbox

oleObject textbox
10.12.2004 20:55:10
joe
hallo an alle,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: oleObject textbox
Ramses
Hallo
schnelleren Rechner kaufen :-)
Braucht bei mir knapp 3 Sekunden.
Optimierung:
Schmeiss mal die Zeile mit "Debug.Print" raus.
Gruss Rainer
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige