IconInShape
13.09.2021 13:40:44
Sonnenpeter
das nachfolgende Makro aus dem Jahr 2008 funktioniert einwandfrei.
Es will mir jedoch nicht gelingen das CommandButton durch ein Shape zu ersetzen.
Funktioniert das auch bei Shapes?
Sub IconInSchaltfläche()
Dim objButton As OLEObject
Set objButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", left:=442.5, Top:=75, Width:=64, Height:=72)
objButton.Object.Picture = Application.CommandBars.GetImageMso("VisualBasic", 64, 64)
objButton.Object.Caption = "Test"
End Sub
Anzeige