Write a piece of VBA code to delete all the pictures in the Excel table

Sub Delete All Pictures() Dim iShp As Shape For Each iShp In ActiveSheet.Shapes If iShp.Type = msoPicture Then iShp.Delete End If Next iShp End Sub

Guess you like

Origin blog.csdn.net/weixin_35755188/article/details/129515721