ich möchte einen Button in der Menüleiste mit einem Icon belegen welches in der Shell32.dll liegt. Irgendwie gelingt es mir nur die vorgefertigten Icons die Excel anbietet auszuwählen.
Kann mir jemand weiterhelfen?
Danke im Voraus
mfG Jörg
Sub menüeinfuegen()
Dim i As Integer
Dim i_Hilfe As Integer
Dim Endkundenformular As CommandBarControl
Dim Mb As CommandBarControl
i = Application.CommandBars(1).Controls.Count
i_Hilfe = Application.CommandBars(1).Controls(i).index
Set Endkundenformular = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=i_Hilfe, Temporary:=True)
Endkundenformular.Caption = "Endkunden&formular"
Set Mb = Endkundenformular.Controls.Add _
(Type:=msoControlButton)
With Mb
.Caption = "&Eingabe Deine Aktion"
.Style = msoButtonIconAndCaption
.OnAction = "Eingabe1"
.BeginGroup = True
.FaceId = 44
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen