編寫(xiě)一段宏一次性的 EXCEL 去掉PDF圖標

Sub 清除圖片()

For Each im In ActiveSheet.Shapes

If im.Type = msoPicture Then im.Delete

Next

End Sub

見(jiàn)附件