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