AW: 2-zeilige Symbolleiste
05.06.2007 12:04:00
c0bRa
Hio...
1:1 aus der XP hilfe
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
Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.