用VBA删除excel中的所有png格式图片

以下是删除Excel中所有PNG格式图片的VBA代码：

Sub DeletePNGImages()
    Dim sh As Worksheet
    Dim pic As Shape
    
    For Each sh In ActiveWorkbook.Worksheets
        For Each pic In sh.Shapes
            If pic.Type = msoPicture And LCase(Right(pic.Name, 3)) = "png" Then
                pic.Delete
            End If
        Next pic
    Next sh
End Sub

请注意，此代码将删除所有工作簿中的PNG格式图片。如果您只想删除特定工作表中的PNG格式图片，请修改代码以仅在所需的工作表上运行。