Icons in die Office2007IconsGallery.xlsm einfügen.
Klaus Henn
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
Martin Hentrich
<klaus...@henn.officelight.at> 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!
Martin Hentrich
<klaus...@henn.officelight.at> 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
Set cmb = Nothing
End Sub
Sub MyVersion()
MsgBox "Excel " & Application.Version
End Sub
Sub MyName()
MsgBox Application.UserName
End Sub
Sub DeleteCommandBar()
Dim cmb As CommandBar
For Each cmb In Application.CommandBars
If cmb.Name = "Meine Symbole" Then
cmb.Delete
End If
Next cmb
Thomas Ramel
Klaus Henn schrieb am 07.04.2008
> 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?
Das ist IMO nicht möglich - die QAT kann nur mit den vorgegebenen Icons
erweitert werden.
Alles weitere (auch eigenen Icons) kannst/musst Du mit
Ribbons-Programmierung mittels MML-Code selbst erstellen/programmieren.
Mit freundlichen Grüssen
Thomas Ramel
--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-2]
Microsoft Excel - Die ExpertenTipps
Höcherl Thomas
die gleiche Antwort, wie unter Symbole für Makros
http://www.herber.de/forum/archiv/104to108/t107592.htm
Gruß
Tom
Thomas Ramel
Höcherl Thomas schrieb am 07.04.2008
> Klaus Henn schrieb:
>>
>> Excel 2007.
>
> die gleiche Antwort, wie unter Symbole für Makros
> http://www.herber.de/forum/archiv/104to108/t107592.htm
Ist dir bewusst, dass es hier um die schöne neue Welt von xl2007 geht?
Da ist nichts mehr mit PasteFace und ähnlichen Dingen.
Allenfalls lässt sich das noch in einer älteren Version 'vorbauen' und die
Datei dann in xl2007 öffenen - die so erzeugten 'Buttons' finden sich dann
im Ribbon 'AddIn' wieder.
Alles weitere geht nur noch über die XML-Programmierung der Ribbons.
Höcherl Thomas
> Grüezi Thomas
>
> Höcherl Thomas schrieb am 07.04.2008
>
>> Klaus Henn schrieb:
>>> Excel 2007.
>> die gleiche Antwort, wie unter Symbole für Makros
>> http://www.herber.de/forum/archiv/104to108/t107592.htm
>
> Ist dir bewusst, dass es hier um die schöne neue Welt von xl2007 geht?
>
> Da ist nichts mehr mit PasteFace und ähnlichen Dingen.
>
> Allenfalls lässt sich das noch in einer älteren Version 'vorbauen' und die
> Datei dann in xl2007 öffenen - die so erzeugten 'Buttons' finden sich dann
> im Ribbon 'AddIn' wieder.
>
> Alles weitere geht nur noch über die XML-Programmierung der Ribbons.
>
>
> Mit freundlichen Grüssen
> Thomas Ramel
>
Hallo,
ich selber habe leider nur 2003.
Aber ich dachte bei der Lösung nicht an PasteFace sondern an den zweiten
Hinweis in dem Thread: Symbolleiste an die Arbeitsmappe zu binden
Auszug aus dem Thread:
"Wichtig ist, die Symbolleiste an die Arbeitsmappe zu binden (Ansicht ->
Symbolleiste -> Anpassen, Button "Anfügen" klicken, Symbolleiste
markieren und auf "Kopieren" drücken)."
Hiermit benötigt man keine langen Kopien der Icons. Ob das unter
2007 funktioniert weiß ich leider auch nicht.
Gruß
Tom
Thomas Ramel
Höcherl Thomas schrieb am 08.04.2008
> Thomas Ramel schrieb:
>>
>> Höcherl Thomas schrieb am 07.04.2008
>>
>>> Klaus Henn schrieb:
>>>> Excel 2007.
>>> die gleiche Antwort, wie unter Symbole für Makros
>>> http://www.herber.de/forum/archiv/104to108/t107592.htm
>>
>> Ist dir bewusst, dass es hier um die schöne neue Welt von xl2007 geht?
>>
>> Da ist nichts mehr mit PasteFace und ähnlichen Dingen.
>
> Aber ich dachte bei der Lösung nicht an PasteFace sondern an den zweiten
> Hinweis in dem Thread: Symbolleiste an die Arbeitsmappe zu binden
>
> Auszug aus dem Thread:
> "Wichtig ist, die Symbolleiste an die Arbeitsmappe zu binden (Ansicht ->
> Symbolleiste -> Anpassen, Button "Anfügen" klicken, Symbolleiste
> markieren und auf "Kopieren" drücken)."
>
> Hiermit benötigt man keine langen Kopien der Icons. Ob das unter
> 2007 funktioniert weiß ich leider auch nicht.
Auch das gehört zu den 'alten' Icons und Buttons - in xl2007 ist hier alles
anders.
Das Anbinden der Symbolleiste muss ebenfalls in einer älteren Version
gemacht werden, dann erscheinen in xl2007 die Buttons im Ribbon 'AddIn'
Mit freundlichen Grüssen
Thomas Ramel
--