ich versuche eigene Schaltflächen in einer Symbolleiste zu integrieren. Die bereitgestellten Icons bzw. die verfügbaren Farben zur Gestaltung genügen mir nicht, da ich spezielle Farben brauche. Kann ich eigene Icons erzeugen und wie integriere ich diese. Gefunden habe ich folgende Prozedur.
Jetzt weiß ich nicht wie ich Grafik einer Schaltfläche zuordnen kann. Bei "Schaltfläche neu zuordnen" erscheint jedenfalls keine der Grafiken als Icon.
Die Prozedur - auch aus dem Forum - habe ich in "DieseArbeitsmappe" geschrieben, die Bilder befinden sich in der Mappe "Icon".
Private Sub Worksheet_Activate()
'Grafik für Schaltfläche in die Zwischenablage kopieren
Worksheets("Icon").Shapes("Test1.bmp", "Test2.bmp").Copy
'Icon aus der Zwischenablage einfügen
.PasteFace
End Sub
Über Hilfe bin ich sehr dankbar.