Icons in die Office2007IconsGallery.xlsm einfügen.

07/04/2008 - 17:35 von Klaus Henn | Report spam
Excel 2007. Für meine Makros kann ich in beschrànktem Rahmen bei
Excel-Optionen/Anpassen/Ändern Icons auswàhlen. Diese Auswahl kann ich
erweitern, indem ich die Office2007IconsGallery.xlsm öffne, die eine in etwa
10-fache Auswahl bietet und mir dort den Namen eines Icons aussuche. Dann muß
ich die Eintràge (Name des Icons) in der Datei Excel.qat àndern.

Wie kann ich nun eigene Icons (z.B. angefertigt in Office paint) der
IconsGallery hinzufügen, um sie dann auswàhlen zu können?

Erbitte Hilfe.

Zur Vorgeschichte siehe auch 'Symbole für Makros'.
Freundliche Grüße.

Klaus
 

Lesen sie die antworten

#1 Martin Hentrich
07/04/2008 - 17:57 | Warnen spam
On Mon, 7 Apr 2008 08:35:00 -0700, Klaus Henn
wrote:

Wie kann ich nun eigene Icons (z.B. angefertigt in Office paint) der
IconsGallery hinzufügen, um sie dann auswàhlen zu können?



IMHO kannst du eigene Icons in eigenen Symbolleisten einfügen, zuvor
müssen sie in die Zwischenablage kopiert werden und dann mit PasteFace
eingefügt werden. In folgendem Beispiel liegen die zu verwenden Bilder
eingefügt auf dem Tabellenblatt. Das Beispiel stammt aus dem Buch
"VBA-Programmierung mit Microsoft Excel - Das Profibuch" von Monika
Weber (Microsoft Press) gilt aber eigentlich nur bis Excel2003, sorry.
OnAction ist mit Makros belegt.

Sub MyIcons()
Dim cmb As CommandBar

Call DeleteCommandBar

Set cmb = Application.CommandBars.Add(Name:="Meine Symbole")

With cmb
' Eigene Symbole erzeugen
With .Controls.Add(Type:=msoControlButton)
ActiveSheet.Pictures(1).Copy ' Erstes Bild kopieren
.PasteFace ' Bild als Symbol einfügen
.Caption = "Excel Version"
.OnAction = "MyVersion"
End With

With .Controls.Add(Type:=msoControlButton)
ActiveSheet.Pictures(2).Copy ' Zweites Bild kopieren
.PasteFace ' Bild als Symbol einfügen
.Caption = "Benutzername"
.OnAction = "MyName"
End With

' Symbolleiste einblenden
.Visible = True
End With

Sub MyVersion()
MsgBox "Excel " & Application.Version
End Sub

Sub MyName()
MsgBox Application.UserName
End Sub

Set cmb = Nothing
End Sub

Vielleicht kannst du damit etwas anfangen.

Martin

Im Übrigen bin ich der Meinung, dass der Föderalismus
im Bildungswesen abgeschafft werden muss!

Ähnliche fragen