[已解决]批量删除图片

fairy3345

我有一工作簿，里面有八十多个工作表，怎样一次性删除同一张图片，
还有如何一次性在这写表里同是插入一张图片

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-7-6 10:42

楼主，附件跟上哦。呵呵。

跳转到最佳答案楼层

ws278106483

Sub crutp()
  Dim x As Integer
   x = Sheets.Count
For x = 1 To x
Sheets(x).Pictures.Insert( _
        "C:\Documents and Settings\Administrator\桌面\123.jpg").Select
Next x

End Sub

ws278106483

1. 
   
2. Sub crutp()
   
3.   Dim x As Integer
   
4.    x = Sheets.Count
   
5. For x = 1 To x
   
6. Sheets(x).Pictures.Insert( _
   
7.         "C:\Documents and Settings\Administrator\桌面\123.jpg").Select
   
8. Next x
   
9. End Sub

复制代码

这是插入图片。

ws278106483

1. Sub sctp()
   
2. Dim x As Integer
   
3. x = Sheets.Count
   
4. For x = 1 To x
   
5.   Sheets(x).Shapes("图片 1").Select
   
6.   Selection.Delete
   
7. Next x
   
8. 
   
9. End Sub

复制代码

删除图片的时候，你所以得图片的名称要一致，不然删除的可能不是同一张图片。楼主，注意哦。

zjdh

For x = 1 To x  ??
你写错了吧！

ws278106483

zjdh 发表于 2012-7-6 10:04
For x = 1 To x  ??
你写错了吧！

没有写错的。呵呵。

ws278106483

1. 
   
2. Sub crutp()
   
3.   Dim x As Integer
   
4.   Dim y As Integer
   
5.   
   
6.    y = Sheets.Count
   
7. Sheets(1).Pictures.Insert( _
   
8.         "C:\Documents and Settings\Administrator\桌面\123.jpg").Select
   
9.   Selection.Name = "图片 1"
   
10.   Sheets(1).Shapes("图片 1").Copy
    
11.   For y = 2 To y
    
12.    Sheets(y).Select
    
13.    
    
14.     ActiveSheet.Paste
    
15.   Next y
    
16.   
    
17. End Sub

复制代码

1. 
   
2. Sub sctp()
   
3. Dim x As Integer
   
4. x = Sheets.Count
   
5. For x = 1 To x
   
6.   Sheets(x).Shapes("图片 1").Delete
   
7. Next x
   
8. 
   
9. End Sub
   

复制代码

楼主，这样就更完美了。呵呵。记得回复哦。觉得好给最佳哦。

ws278106483

楼主，附件跟上哦。呵呵。

fairy3345

i谢了，以后我也得学VBA

gdsgzhrsh

ws278106483 发表于 2012-7-6 10:42
楼主，附件跟上哦。呵呵。

已有的照片，不那么叫你怎么删？