2009-10-01 12 views
0

我尝试使用下面的代码删除下降,由电子表格下来:为什么我不能从Excel表格中删除这个讨厌的下拉菜单?

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

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

回答

0

下拉列表绑定到工作簿中的另一张工作表。删除其他工作表后,代码正确删除了形状。

0

夫妇的想法:

  • 有一些工作表保护?
  • 是某些验证的下拉部分(允许的值可以定义,通常显示为下拉框)。
相关问题