Set cmdButton - ? wie durchgezogene Linie
11.07.2006 11:30:29
HorstH
we kann mir Tipp (Office 2000) geben:
Wie erstelle ich eine durchgezogene Linie als Trennung. Unterstrich ist nicht mittig zwischen den Menüpunkten. Was muss man da machen? Bitte Tipp, wer das weiß. Danke und Gruß. Horst
(siehe =M3 ... .Caption = "----------------------------------")
...
Set MB = CommandBars.Add(Name:=MenüName, MenuBar:=True)
Set M1 = MB.Controls.Add(Type:=msoControlPopup)
Set M2 = MB.Controls.Add(Type:=msoControlPopup)
Set M3 = MB.Controls.Add(Type:=msoControlPopup)
Set M4 = MB.Controls.Add(Type:=msoControlPopup)
...
M1.Caption = "&Dateien öffnen/ansehen/beenden"
M2.Caption = "&Objekte/Stationsvorlagen bearbeiten"
M3.Caption = "&Textdateien Import/Export"
M4.Caption = "&Auswertungen/Grafiken/Kalender"
...
Set cmdButton = M3.Controls.Add(Type:=msoControlButton, ID:=1)
With cmdButton
.Caption = "Textdateien Export: Stationsdaten in Textdateien exportieren"
.OnAction = "Menü3.2"
.OnAction = "Under_Work"
.Style = msoButtonIconAndCaption
.FaceId = 2310
.Enabled = False
End With
Set cmdButton = M3.Controls.Add(Type:=msoControlButton, ID:=2)
With cmdButton
.Caption = "---------------------------------------------------"
.Style = msoButtonCaption
End With
Set cmdButton = M3.Controls.Add(Type:=msoControlButton, ID:=1)
With cmdButton
.Caption = "Punkt 3.3"
.OnAction = "Menü3"
.OnAction = "Under_Work"
.Style = msoButtonIconAndCaption
.FaceId = 1640
.Enabled = False
End With
...