Excel 在窗体中使用vba-组合框更改下拉列表

如何访问下拉列表以更改ListFillRange

If Worksheets("home").Range("K17").Value = "December" Then
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
    With Selection
        .ListFillRange = "Lists!$D$16:$D$27"
        .LinkedCell = "Home!$J$11"
        .DropDownLines = 12
        .Display3DShading = True
    End With
    Else
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
    With Selection
        .ListFillRange = "Lists!$D$2:$D$13"
        .LinkedCell = "Home!$J$11"
        .DropDownLines = 12
        .Display3DShading = True
    End With
End If

当我运行这段代码时，我得到了错误

请求的形状已锁定以供选择

---

这些组合框是来自表单菜单吗？您可能会从阅读中受益。是的，它们来自表单菜单