摘要： 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个形状名称依次为:" 阅读全文