请教怎样实现shapes的条件选择

wpyn

请问版主怎样用VBA实现对shapes的条件选择，如在我的例子里面怎样实现对除了CommandButton1和CommandButton2以外所有图形的选择？多谢!!!!! 4BzmedHM.rar (6.85 KB, 下载次数: 36)

2004-1-15 04:43 上传

点击文件名下载附件
请教怎样实现shapes的条件选择

菱角

Sub bb()
[a1].Select
Dim shp As Shape
For Each shp In Sheets(1).Shapes
If shp.Type <> msoOLEControlObject Then
shp.Select Replace:=False
End If
Next
End Sub

EdgeOfCity

这句： Replace:=False不错，谢谢。以前还没发现这个参数。