Frames und Labels per Schleife
21.07.2022 06:36:53
Chris
ich erstelle mit unten stehendem Makro je fünf Frames und Labels. Da die Labels innerhalb der Frames liegen sind diese nicht sichtbar.
1) Gibt es ein Möglichkeit diese sichtbar zu machen? Ich habe in den Eigenschaft keine "Transparency" o. Ä. entdecken können. Ich kann die Labels manuell per Maus in die Frames ziehen, dann funktioniert dies. Da sie jedoch nicht existieren und erst bei Start der Userform erscheinen, komme ich per Maus nicht weiter.
2) Ich möchte in einem zweiten Schritt die Labels per Maus anklicken könnnen (testweise soll eine Msg-Box erscheinen mit den Hinweis welches Label angeklickt wurde). Da die Labels in der Programmierumgebung nicht existieren, kann ich diese nicht anklicken und ein Mouse_Click Ereignis auswählen. Wie löst man dies?
Schon mal Dank für die Hilfe.
Private Sub UserForm_Activate()
Dim frame As MSForms.frame
Dim i, ii As Long
For i = 1 To 5
Set frame = Me.Controls.Add("forms.frame.1")
With frame
.Width = 60
.Height = 100
.Top = 23
.Left = i * 70
.Caption = i
End With
Next
For ii = 1 To 5
Set Lbl = UserForm1.Controls.Add("forms.label.1")
Lbl.Caption = Range("A" & ii)
Lbl.Top = 30
Lbl.Left = ii * 70
Next
End Sub