vba: commandbar.controls.add: wie Einträge untereinander?

28/04/2010 - 21:33 von Thomas Hoffmann | Report spam
Betr. Word 2000
ich füge erfolgreich eine verschiebbare Menüleiste folgendermaßen ein, allerdings sind die
Eintràge nebeneinander und ich hàtte sie gerne untereinander, was mir nicht gelingt.
Was muss ich àndern?
Gruß und Dank! TH

Private Sub Document_Open()

Dim cb As CommandBar
Dim cbb As CommandBarButton
Dim ii As Integer, tx As String

'Leiste erzeugen
Set cb = CommandBars.Add _
(C_Title, msoBarFloating, False, False)
With cb
.Protection = msoBarNoResize
.Visible = True
End With

'Buttons erzeugen
For ii = 1 To 3
Set cbb = cb.Controls.Add(msoControlButton)
tx = Choose(ii, "Tabelle ausfüllen", _
"Insulinplan Drucken", _
"Beenden")

cbb.Style = msoButtonCaption
'cbb.Style = msoButtonIcon
'cbb.Style = msoButtonIconAndCaption
cbb.Caption = tx

tx = Choose(ii, "BerechneAlles", _
"DruckMich", "Ende")
cbb.OnAction = tx
Next ii

End Sub


Thomas Hoffmann
 

Lesen sie die antworten

#1 Klaus Linke
29/04/2010 - 05:47 | Warnen spam
Hallo Thomas,

allerdings sind die Eintràge nebeneinander und ich hàtte sie gerne
untereinander, was mir nicht gelingt.



Stelle die Breite so ein, dass die Eintràge nur untereinander passen, bevor
du die Größenànderung verbietest?

With cb
.Width0
.Protection = msoBarNoResize
.Visible = True
End With

Eine allgemeine Lösung (unabhàngig von der Breite der Buttons) fàllt mir
nicht ein...

Gruß,
Klaus

Ähnliche fragen