Trennlinie in Menü einfügen
07.10.2004 11:14:17
Franz
kann mir bitte jemand sagen, wie in ein selbstgebautes Menü eine Trennlinie zwischen zwei Menüpunkte eingefügt werden kann? Hier der angepasste Code, der ursprünglich einem Beispiel von Udos HP entnommen ist:
Option Explicit
Public Const NameNeueLeiste = "Kunden"
Private Const NameNeuesMenue = "K&undenoperationen"
Sub Menü_einfügen()
Dim NeuesMenue As CommandBar, St As CommandBarButton, Pop1 As CommandBarPopup
On Error Resume Next
Application.CommandBars(NameNeueLeiste).Delete
On Error GoTo 0
Set NeuesMenue = CommandBars.Add(Name:=NameNeueLeiste, temporary:=True)
With NeuesMenue
'.Position = msoBarTop 'entweder oben verankert, ...
'.Position = msoBarFloating 'oder nicht verankert, beliebige Position, ...
.Left = 200 '... oder Position exakt festlegen
.Top = 200 '... oder Position exakt festlegen
.Width = 200 'keine Reakton
.Visible = True
End With
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlPopup)
Pop1.Caption = NameNeuesMenue
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Kund&en eingeben"
.Style = msoButtonCaption
.OnAction = "Makro_1"
End With
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Kunden &ändern"
.Style = msoButtonCaption
.OnAction = "Makro_2"
End With
Set St = Pop1.Controls.Add(Type:=msoControlButton, ID:=1)
With St
.Caption = "Kunden &löschen"
.Style = msoButtonCaption
.OnAction = "Makro_3"
End With
End Sub
Kleine Zusatzfrage, nicht allzu wichtig: warum hat die ".Width"-Anweisung keine Wirkung, Breite immer nur abhängig vom Namen des Menüs...?
Vielen Dank im Voraus und Grüße
Franz