【已解决】求助VBA如何批量删除所有相同大小的元素？

wdpfox

从网络复制的文章，图片链接失效，无法显示，想批量删除，特此求助如题，如图所示：

提高羽毛球预判.rar (30.44 KB, 下载次数: 7)

2023-1-14 20:29 上传

点击文件名下载附件

先谢为敬！

wdpfox

刚发现第二个以后的大小相同

vbee

Sub 宏1()
S = ActiveDocument.Shapes.Count
For i = S To 2 Step -1
If ActiveDocument.Shapes(i).Width = ActiveDocument.Shapes(2).Width Then ActiveDocument.Shapes(i).Delete
Next
End Sub

wdpfox

vbee 发表于 2023-1-15 13:05
Sub 宏1()
S = ActiveDocument.Shapes.Count
For i = S To 2 Step -1

不要通杀，如果文档有其它图片？我的想法是删固定大小的，固定大小的确定，由选定一个图片后，获取其宽、高

梧叶沙沙

我的插件Word魔方可以轻松解决

vbee

Sub VBEE()
S = ActiveDocument.Shapes.Count
W = Selection.ShapeRange.Width
H = Selection.ShapeRange.Height
If W * H = 0 Then Exit Sub
For i = S To 2 Step -1
If ActiveDocument.Shapes(i).Width = W And ActiveDocument.Shapes(i).Height = H Then ActiveDocument.Shapes(i).Delete
Next
End Sub

wdpfox

vbee 发表于 2023-1-16 12:39
Sub VBEE()
S = ActiveDocument.Shapes.Count
W = Selection.ShapeRange.Width

完美运行，谢谢！

wdpfox

梧叶沙沙 发表于 2023-1-16 11:46
我的插件Word魔方可以轻松解决

我下载试试，谢谢！