Eigene Symbolleisten mit eigenen Icons

21/01/2008 - 12:24 von Michael Mueller | Report spam
Hi.

Mit folgendem Code erzeuge ich mir eigene Schaltfàchen:
Set ButtSym = SprachePopup.Controls.Add(Temporary:=True)
With ButtSym
.Caption = TabelleSprache.Cells(4, x)
.OnAction = "LanguageSet"
.Parameter = x
TabelleSprache.Shapes("Icon" & x).Copy
.PasteFace
.State = (TabelleSprache.Cells(1, 1) = x)
End With

Das funktioniert prima, nur werden die Icons "weichgezeichnet".
Ich weiß nicht wie ich es anders nennen soll. Vorhandene Kanten werden
verschwommen. Meine sind 16x16x32-Bit-Bitmaps.

Gibt es ein fixes Format, welches diese Icons haben sollten?

Danke
Michi
 

Lesen sie die antworten

#1 Melanie Breden
21/01/2008 - 13:07 | Warnen spam
Hallo Michael,

"Michael Mueller" schrieb:
Mit folgendem Code erzeuge ich mir eigene Schaltfàchen:
Set ButtSym = SprachePopup.Controls.Add(Temporary:=True)
With ButtSym
.Caption = TabelleSprache.Cells(4, x)
.OnAction = "LanguageSet"
.Parameter = x
TabelleSprache.Shapes("Icon" & x).Copy
.PasteFace
.State = (TabelleSprache.Cells(1, 1) = x)
End With

Das funktioniert prima, nur werden die Icons "weichgezeichnet".
Ich weiß nicht wie ich es anders nennen soll. Vorhandene Kanten werden verschwommen. Meine sind
16x16x32-Bit-Bitmaps.

Gibt es ein fixes Format, welches diese Icons haben sollten?



versuchs mal mit einem 18x18x256 Bitmap


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de
Das Excel-VBA Codebook 2007 http://tinyurl.com/2nwvod

Ähnliche fragen