保留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
保留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