0

我正在尝试使用以下代码从电子表格中删除下拉列表:

Dim objShape As Shape
For Each objShape In ActiveSheet.Shapes
    objShape.Delete
Next

objShape回报Application-Defined or Object-Defined Error

Debug.Print objShape.FormControlType退货xlDropDown
Debug.Print objShape.Name                       退货"Drop Down 250"
Debug.Print objShape.TopLeftCell         退货Application-Defined or Object-Defined Error

ActiveSheet.Cells.Validation.Delete没有摆脱它,也没有使用ShapeRange.

任何关于如何根除这个小虫子的建议将不胜感激。

4

2 回答 2

0

下拉列表与工作簿中的另一张工作表相关联。删除另一张纸后,代码正确删除了形状。

于 2009-10-01T20:05:35.760 回答
0

几个想法:

  • 是否有一些纸张保护?
  • 是某些验证的下拉部分(可以定义允许的值,通常显示为下拉框)。
于 2009-10-01T19:25:36.410 回答