[已解决][讨论]用代码删除多工鞅碇卸嗾磐计?>

E-H-P

一个简单的删除全部图片的过程,也发出来了.汗一个!

Sub AllShapeDel()
    Dim i&, sht&, shs&
    For sht = 1 To Sheets.Count
        shs = Sheets(sht).Shapes.Count
        For i = 1 To shs
            Sheets(shs).Shapes(1).Delete '这里是用的1,不是变量i.用shapes.range(1)也可以
        Next
    Next
End Sub

'在使用时,就是发觉在图片中循环时shape(shs)会出错,但是具体为什么说不出.觉得有点特别才发贴.

'更加希望有师傅能详细说一下原理就棒了!

 

[此贴子已经被作者于2009-12-29 10:59:58编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-29 10:52

以下代码不会将有效性删除

Sub DelallShapes() '删除全部图形,除了有效性下拉箭头
    Dim pic As Shape
    For sht = 1 To Sheets.Count
        For Each pic In Sheets(sht).Shapes
            If pic.Name <> "Drop Down 1" Then pic.Delete
        Next
    Next
End Sub

跳转到最佳答案楼层

wsfsy

Sub AllShapeDel()
    Dim i%, sp As Shape
    For i = 1 To Sheets.Count
     For Each sp In Sheets(i).Shapes
     sp.Delete
     Next
    Next
End Sub

不知道这样可不可以

amulee

以下代码不会将有效性删除

Sub DelallShapes() '删除全部图形,除了有效性下拉箭头
    Dim pic As Shape
    For sht = 1 To Sheets.Count
        For Each pic In Sheets(sht).Shapes
            If pic.Name <> "Drop Down 1" Then pic.Delete
        Next
    Next
End Sub

E-H-P

二楼的干脆,什么都干净了.会出错.

 

[讨论]用代码删除多工鞅碇卸嗾磐计?> 

MM老师考虑周到.有效性没删除.没有报错哦.

E-H-P

糟了,我再也没有有效性下拉框了,MM师傅,还能救不?

oobird

For Each i In ActiveSheet.Shapes
    If i.Type = msoPicture Then i.Delete
Next

wsfsy

QUOTE:

以下是引用E-H-P在2009-12-29 11:22:00的发言：

二楼的干脆,什么都干净了.会出错.

 

MM老师考虑周到.有效性没删除.没有报错哦.

楼主在哪里提到要关照有效性了？