用VBA删除excel中指定工作表中所有png格式图片

你可以使用以下VBA代码删除指定工作表中的所有PNG格式图片：

Sub DeletePNGImages()
    Dim ws As Worksheet
    Dim shp As Shape
    
    Set ws = ThisWorkbook.Worksheets("指定工作表名称") '替换为你需要操作的工作表名称
    
    For Each shp In ws.Shapes
        If shp.Type = msoPicture And Right(shp.Name, 3) = "png" Then
            shp.Delete
        End If
    Next shp
End Sub

将代码中的“指定工作表名称”替换为你需要操作的工作表名称，然后在VBA编辑器中运行该代码即可。