vba-控制形状控件
Sub testShape() Dim shp As Shape Dim str As String For Each shp In ActiveSheet.Shapes str = str & shp.Name & vbCrLf Next shp MsgBox "工作表中的3个形状名称依次为:" & vbCrLf & str 'ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")). 'ActiveSheet.Shapes("MyButton").Select ActiveSheet.Shapes("MyButton").Visible = True '.Delete 'ActiveSheet.Shapes("MyButton").Select End Sub