VBA代码删除图形时不删除数据有效性下拉框方法
1、运行如下宏代码:Sub delpic()Dim pic As ShapeFor Each pic In ActiveSheet.Shapespic.DeleteNextEnd Sub看效果,数据有效性下拉框是否不见了?

3、将C1、C2单元格数据有效性删除,然后保存,重新打开Excel文件,再在C1、C2单元格设置数据有效性,然后运行xsyxxname宏代码,查看结果。发现Name得到有效性名称变化为Drop Down 2,如此看来数据有效性名称都是以Drop Down X这样格式的名称。其默认名称里面必定包含Drop Down字样。

4、我们凸鹣沮北把第一步的宏代码更改为如下:Sub delpic()Dim pic As ShapeFor Each pic In ActiveSheet.ShapesIf InStr(1, pic.Name, "Drop Down") = 0 Then pic.DeleteNextEnd Sub这样就不会再把数据有效性框删掉了。
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:89
阅读量:42
阅读量:70
阅读量:27
阅读量:76