Symbol selber malen mit PasteFace
31.01.2008 15:53:38
Yal
Es ist wie immer die Sachen mit kleinstem Nutzen, die einer am Meisten hält...
Ich habe vor, eine Symbolleiste mit eigendefinierten Symbol zu schmücken.
Ich habe dafür eine "Makrosammlung.xls" hergestellt.
Dies kann anscheinend nur mit PasteFace erfolgen, dass das Inhalt von Zwischenablage auf dem Befehlsschaltfläche reinbringt.
Aber wie bekomme ich durch VBA einen Bitmap in die Zwischenablage?
Meine Ansatz bis jetzt, ist auf einem Blatt die Shalfläche als Bild zu speichern, wie z.B. Bernd Augustin es macht in
http://www.excel-addins.de/FaceIDs.zip
und diese mit CopyFace und PasteFace auf dem gezielte Symbol reinzubringen.
Prinzipiel funktioniert es schon:
Sub SymbolAufDemBlatt_übertragen()
Dim E
For Each E In CommandBars(cBarName).Controls
E.CopyFace
ThisWorkbook.Worksheets(1).Paste
Next
End Sub
Sub SymbolInDieLeiste_einfügen()
Dim C, E
For Each E In CommandBars(cBarName).Controls
E.Delete
Next
For Each E In ThisWorkbook.Worksheets(1).Shapes
Set C = CommandBars(cBarName).Controls.Add
E.Copy
C.PasteFace
Next
End Sub
Aber ich bin nicht zufrieden, wie die Farbkodierung als Bild im Blatt gespeichert werden. Es verliert an Schärfe.
Gibt es aber andere mögliche Einsätze?
Welche Möglichkeit gäbe es, dieses Bild (Schaltflächensymbol heisst es) in ein Excel Datei zu speichern?
Vielen Dank für Ihre weise Unterstützung.
Yal