PDA

Vollständige Version anzeigen : Icon zuweisen


strausto
19.03.2003, 16:41
Hi!


Public Function newicon()

Dim cb As CommandBar
Dim cbc As CommandBarControl
Dim cbb As CommandBarButton

Set cb = CommandBars("ToolbarBerichtsauswahl")
Set cbc = cb.Controls("&data").Controls("Reports &print")

CommandBars.FindControl(Id:=4).CopyFace
cbc.PasteFace

End Function


Soll der benutzerdefinierten Commanbar im Menüpunkt Reports &print das Icon 4 (Drucker) zuweisen.

Zwar erscheint keine Fehlermeldung aber es funktioniert nicht.


Danke!

strausto
19.03.2003, 16:47
Habe es grad selbst gefunden...

CommandBars("ToolbarBerichtsauswahl").Controls("&data").Controls("Reports &print").style=0

Nicht für Ungut....

Sascha Trowitzsch
19.03.2003, 17:12
??? Und was hat das mit dem Icon-Kopieren zu tun?

strausto
19.03.2003, 17:59
Hi Sascha!

Um das Icon darstellen zu können musste ich den Style ändern.
Insofern der Style "nur Text" gewählt wurde, kann der Icon nicht angezeigt werden.

Sascha Trowitzsch
19.03.2003, 18:42
Ah, ok, hatte ich "übersehen".