Beispiel für Steuerelemente-Auflistung, Move-Methode
Im folgenden Beispiel wird mithilfe von For Each... auf einzelne Steuerelemente aus der Controls-Auflistungzugegriffen. Nächste Schleife. Wenn der Benutzer CommandButton1 drückt, werden die anderen Steuerelemente mithilfe der Move-Methode am linken Rand des Formulars in einer Spalte platziert.
Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Make sure that the form contains a CommandButton named CommandButton1 and several other controls.
Dim CtrlHeight As Single
Dim CtrlTop As Single
Dim CtrlGap As Single
Private Sub CommandButton1_Click()
Dim MyControl As Control
CtrlTop = 5
For Each MyControl In Controls
If MyControl.Name = "CommandButton1" Then
'Don't move or resize this control.
Else
'Move method using named arguments
MyControl.Move Top:=CtrlTop, _
Height:=CtrlHeight, Left:=5
'Move method using unnamed arguments (left,
'top, width, height)
'MyControl.Move 5, CtrlTop, ,CtrlHeight
'Calculate top coordinate for next control
CtrlTop = CtrlTop + CtrlHeight + CtrlGap
End If
Next
End Sub
Private Sub UserForm_Initialize()
CtrlHeight = 20
CtrlGap = 5
CommandButton1.Caption = "Click to move controls"
CommandButton1.AutoSize = True
CommandButton1.Left = 120
CommandButton1.Top = CtrlTop
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.