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

[Thomas Hoffmann]

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

[Klaus Linke]

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
.Width=100

.Protection = msoBarNoResize
.Visible = True
End With

Eine allgemeine Lï¿œsung (unabhï¿œngig von der Breite der Buttons) fï¿œllt mir
nicht ein...

Gruￜ,
Klaus

[Klaus Linke]

"Klaus Linke" <in...@fotosatz-kaufmann.de> schrieb im Newsbeitrag
news:%23p9x960...@TK2MSFTNGP02.phx.gbl...

>> 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
> .Width=100
> .Protection = msoBarNoResize
> .Visible = True
> End With

Ist vermutlich keine so brilliante Idee:
Die nï¿œtige Breite wird von den Windows-Einstellungen (Schrift?
Schriftgrￜￜe?) abhￜngen.

Vielleicht kannst du alles so lassen wie es ist, und die Leiste links
andocken:
cb.Position=msoBarLeft

Oder du kï¿œnntest die Anpassung der Leiste dem Benutzer ï¿œberlassen
(.Protection = msoBarNoProtection).

Oder ein Menￜ auf der Symbolleiste anlegen (msoControlPopup, Caption =
"Optionen" oder so), in dem du dann die drei Buttons unterbringst.

Gruￜ,
Klaus

[Thomas Hoffmann]

>
> Stelle die Breite so ein, dass die Eintrï¿œge nur untereinander passen,
> bevor du die Grￜￜenￜnderung verbietest?

Hi Klaus, das funzt tatsï¿œchlich. Einstellung muss nach laden der buttons erfolgen.
Es ist hier offenbar nicht mï¿œglich, einen genauen Wert einzustellen, sondern windows
stellt den nï¿œchsten, zu den buttons passenden Wert ein.

Aber: so klappt das mit dem untereinander...

Vielen Dank!
TH

--
Thomas Hoffmann