Set und Commandbutton Objekt
14.10.2005 13:47:42
chris
habe heute gleich noch eine frage und hoffe ihr helft mir weiter.
Ich füge mit diesem Code einen Commandbutton ein.
Und zum schluss gebe ich dem Commandbutton noch eine Beschriftung (caption)
Meine frage warum oder wozu muss ich nach dem "chCommandbutton" noch zusätzlich .Object
schreiben.Das verstehe ich nicht.
Vielen Dank und schönes Wochenende !!!
Sub test()
Set chCommandbutton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.commandbutton.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=10, _
Top:=pos, _
Width:=100, _
Height:=20)
chCommandbutton.Object.Caption = "testname"
End Sub
Anzeige