Alternative für stdole.StdFunctions.LoadPicture
03.05.2009 17:08:16
Martin
folgenden Code verwende ich zur Einbindung von benutzerdefinierten Schaltflächensymbolen in der Menüleiste:
With Application.CommandBars("Worksheet Menu Bar").Controls("&Export").Controls("&PDF-Datei")
.Picture = stdole.StdFunctions.LoadPicture("c:\1pdf.gif") 'Schaltflächensymbol festlegen
.Mask = stdole.StdFunctions.LoadPicture("c:\2pdf.gif") 'Zweite Grafik als Maske für transparanten Bereich
End With
Gibt es (außer der PasteFace-Methode, die sehr unsauber ist und keine Transparenz unterstützt) eine Möglichkeit die Grafiken für die Schaltflächensymbole in der Excel-Mappe zu integrieren und dann stdole.StdFunctions.LoadPicture zuzuweisen? Ich suche also nach einer Möglichkeit der Zeile "stdole.StdFunctions.LoadPicture("c:\1pdf.gif")" keine zusätzliche externe Bilddatei zuweisen zu müssen.
Der Grafikexport aus Excel als Notlösung (wo eine Bild in ein Excel-Diagramm eingefügt und somit als Bilddatei exportiert werden kann) ist leider nicht möglich, da das Schaltflächensymbol nur angeschnitten und nur zu 1/4-sichtbar exportiert wird. Ich habe also schon alles (was mir dazu eingefallen ist) probiert.
Hat von Euch jemand eine Idee? Es geht darum, dass die Excel-Datei auch für andere Mitarbeiter genutzt werden kann und dafür nicht immer irgendwelche Bilddateien für Schaltflächensymbole mitkopiert werden müssen.
Viele Grüße
Martin