关于vba条件删除图片

保留Ole控件对象，删除其他所有

Private Sub CommandButton3_Click()
Dim shp As Object
For Each shp In ActiveSheet.Shapes
If shp.Type = msoOLEControlObject Then
Else
shp.Delete
End If
Next shp
End Sub

转载于:https://blog.51cto.com/xiweicheng/940563