Steuerelement Rahmen
06.11.2014 12:38:56
siegfried
ich möchte per Click auf eine Checkbox ein Bild auf einer UserForm in einen Rahmen verschieben.
Mit meinem Code verschiebe ich das Bild aber nur auf der UserForm selbst.
Private Sub CheckBox2_Click()
Dim Rahmen As Object, Bild As Object
If CheckBox1.Value = True Then
Set Rahmen = Frame4
Set Bild = Controls(CheckBox1.Caption)
With Bild
.Top = 6
.Left = 6
End With
End If
End Sub
Wie muss ich das richtig anstellen?
Gruß
Siegfried