Menü mit Zoom
03.04.2006 05:03:20
Björn
ich brauche ganz dringend eure Hilfe.
Ich habe ein eigenes Menü erstellt und es funktioniert auch ganz gut. Ich möchte jetzt aber auch die Zoom-Funktion einbauen, aber das funktioniert irgendwie nicht.
Set icon = oBar.Controls.Add(msoControlButton, 109)
With icon
.TooltipText = "Seitenansicht"
End With
Set icon = oBar.Controls.Add(msoControlButton, 2521)
With icon
.TooltipText = "Drucken"
End With
'Funktioniert so nicht...
Set icon = oBar.Controls.Add(msoControlButton, 1733)
With icon
.TooltipText = "Drucken"
Ich hoffe ihr könnt mir helfen.
Gruß Björn