编写一段宏一次性的 EXCEL 去掉PDF图标

Sub 清除图片()

For Each im In ActiveSheet.Shapes

If im.Type = msoPicture Then im.Delete

Next

End Sub

见附件