Question

vba删除Excel2007插入图片的代码

Answer 1

Sub deletePictures()
    Dim sht As Worksheet
    Dim pic As Shape
    Dim picCount As Long
    For Each sht In ActiveWorkbook.Sheets
        For Each pic In sht.Shapes
            If pic.Type = msoPicture Then
                pic.Delete
                picCount = picCount + 1
            End If
        Next pic
    Next sht
    MsgBox "已成功删除" & picCount & "个图片!"
End Sub