web-dev-qa-db-fra.com

Ajout de contrôles à un cadre dans une formulaire Excel avec VBA

J'ai besoin de créer des étiquettes et des boutons de manière dynamique, puis ajoutez-les à une image dans une référence. Comment puis-je faire cela? On dirait que devrait être plus facile que ce qu'il est vrai.

excelvbaexcel-vbauserform
13
notnot

Ma variation sur le thème ci-dessus. Ceci est juste pour un réseau 4x4 de boutons cependant. Créez un userForm et ajoutez ceci à son code. Les mêmes concepts peuvent être utilisés avec vos étiquettes (ou voir la réponse précédente):

Private cmdLots(20) As MSForms.CommandButton

Private Sub UserForm_Initialize()
For i = 1 To 4
For j = 1 To 4
    k = i + (4 * j)
    Set cmdLots(k) = UserForm2.Controls.Add("Forms.CommandButton.1", "cmd1")
    With cmdLots(k)
        .Top = i * 25
        .Left = (j * 80) - 50
        .BackColor = RGB(50 * i, 50 * j, 0)
        .Caption = "i= " & i & "  j= " & j
    End With
Next j
Next i
End Sub
4
tjSTAR