Spielerei mit OLEObjects
03.10.2005 13:32:14
Ano
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
Anzeige