重复图片删除

datamoth

我有一个EXCEL表，其中有很多图片。由于经过多次复制粘贴，一些图片重复了，也就是大小、内容都一模一样的图片出现在一模一样的位置（用鼠标选中一个移开后原位置下还有一个或几个，如图）。这样不影响显示或打印，但会导致保存时文件很大。希望能删除重复图片，只保留一个。


试着写了一段代码，但报需要对象。请教各位大神错在哪了。
Sub aa()
Dim SP1, SP2 As Shape
  For Each SP1 In ActiveSheet.Shapes
  For Each SP2 In ActiveSheet.Shapes
     If SP1.Left = SP2.Left And SP1.Top = SP2.Top Then
      SP1.Delete
    End If
  Next
  Next
End sub

lt0314

确定只确定left、top就行了？不制定width和height？

1. Sub aa()
   
2. Dim SP As Shape, dic As Object, str As String
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. For Each SP In ActiveSheet.Shapes
   
5.     str = SP.Left & "-" & SP.Top
   
6.     If dic.exists(str) Then
   
7.         SP.Delete
   
8.     Else
   
9.         dic(str) = ""
   
10.     End If
    
11. Next
    
12. End Sub
    

复制代码