Vba Excel：是否可以克隆表单控件？

Question

I have to generate hundreds of form control dropdowns with same item values. So i would like to clone them if possible. And i should be able to change few attributes like Name, OnAction Any ideas would be appreciated greatly.

Answer 1

Sub Macro1()
Dim c As Range, i As Long, nm As String
Dim sht As Worksheet

    Set sht = ActiveSheet
    i = 0
    For Each c In sht.Range("A2:A20")
        i = i + 1
        nm = "dd_" & i
        On Error Resume Next
        sht.Shapes(nm).Delete
        On Error GoTo 0

        With sht.DropDowns.Add(c.Left, c.Top, c.Width, c.Height)
            .Name = nm
            .ListFillRange = "K1:K6"
            .LinkedCell = ""
            .DropDownLines = 8
            .Display3DShading = False
            .OnAction = "HandleClick"
        End With

    Next c

End Sub

Handler:

Sub HandleClick()
    Debug.Print Application.Caller
End Sub