Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
676to680
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
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spielerei mit OLEObjects

Spielerei mit OLEObjects
03.10.2005 13:32:14
Ano
Hallo allerseits,
ich spiele gerade mit einer aufzoomenden ClassType:="Forms.TextBox.1"
in einer Tabelle herum.
Wie bekomme ich einen Text in das Objekt ? (..natürlich ohne ihn mit der
Hand zu schreiben ;-))
Anbei der Code...
Declare

Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Sub zoom()
'Application.CommandBars("Control Toolbox").Visible = False
'ActiveSheet.OLEObjects.Delete
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=20, Top:=20, Width:=1, Height:= _
1).Activate
For i = 1 To 300 Step 10
With ActiveSheet.OLEObjects
.Height = i
.Width = i
End With
Sleep 5
DoEvents
Next i
'Hier stockt es irgendwie ;-)
'ActiveSheet.OLEObjects.Text = "Test"  '?
End Sub

Gruß, Ano Nym

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spielerei mit OLEObjects
03.10.2005 14:13:39
Luschi
Hallo Ano Nym,
mit ActiveSheet.OLEObjects("TextBox1").Object.Text = "Test" geht's.
Gruß von Luschi
aus klein-Paris
Klasse, Danke sehr ! o.T.
03.10.2005 14:27:30
Ano
.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige