Kann man eine selbst über Code erstellte Symbolleiste auch 2-zeilig gestalten. Per Hand kann man
nachträglich die Symbolleiste auf 2 Zeilen ziehen.
Gruß
Bernhard
Height-Eigenschaft
Siehe auch Betrifft Beispiel Zusatzinfo
Gibt die Höhe eines Befehlsleisten-Steuerelements oder einer Befehlsleiste zurück. Long-Wert _
mit Lese-/Schreibzugriff.
Ausdruck.Height
Ausdruck Erforderlich. Ein Ausdruck, der eines der oben genannten Objekte zurückgibt.
Beispiel
In diesem Beispiel wird ein benutzerdefiniertes Steuerelement zur Befehlsleiste Custom hinzugefü _
gt. Die Höhe des benutzerdefinierten Steuerelements wird auf die doppelte Höhe der Befehlsleiste gesetzt, die Breite auf 50 Pixel. Beachten Sie, dass sich die Höhe der Befehlsleiste automatisch ändert, sodass diese das Steuerelement aufnehmen kann.
Set myBar = CommandBars("Custom")
barHeight = myBar.Height
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton, _
Id:= CommandBars("Standard").Controls("Save").Id, _
Temporary:=True)
With myControl
.Height = barHeight * 2
.Width = 50
End With
myBar.Visible = True
Funktioniert aber nur bei nicht in der Symbolleiste fixierten Controlbars