erstelle ein eigenes Menü mit folgenden Code:
Private Sub Workbook_AddinInstall()
Dim Menü As CommandBarControl
Dim Menüpunkt As CommandBarControl
Application.ScreenUpdating = False
Application.CommandBars.AdaptiveMenus = True
Set Menü = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=10)
Menü.Caption = "&MyTools"
With Sheets(1)
.Pictures.Insert ("C:\DasIcon.bmp")
.Shapes(1).CopyPicture
End With
Set Menüpunkt = Menü.Controls.Add(Type:=msoControlButton)
With Menüpunkt
.Caption = "Caption1"
.Style = msoButtonIconAndCaption
.PasteFace
.OnAction = "C:\DerName.xls!DieseArbeitsmappe.Workbook_Open"
End With
'usw
Sheets(1).Shapes(1).Delete
Application.ScreenUpdating = True
End Sub
Gibt es eine Möglichkeit das Icon für die PasteFace-Methode direkt aus einer Datei in die Zwischenablage zu kopieren oder muss ich das, wie hier, erst irgendwo im Tabellenblatt einfügen und anschließend wieder löschen?
Gruß
Bertram