1. Dim s As SpreadsheetGear.Shapes.IShape
   
2. If e.Shape.Name = "Button 7" Then
   
3. For Each s In ActiveWorkbook.ActiveWorksheet.Shapes
   
4.     MessageBox.Show(s.TextFrame.Characters.Text)
   
5. Next
   
6. End If

复制代码

1.             If e.Shape.Name = "Button 9" Then
   
2.                 For Each s In ActiveWorkbook.ActiveWorksheet.Shapes
   
3.                     If Left(s.TextFrame.Characters.Text, 6) <> "Button" Then
   
4.                         s.Delete()
   
5.                     End If
   
6.                 Next
   
7.             End If

复制代码

1.             If e.Shape.Name = "Button 9" Then
   
2.                 For Each s In ActiveWorkbook.ActiveWorksheet.Shapes
   
3.                     If Left(s.TextFrame.Characters.Text, 6) <> "Button" Then
   
4.                         s.Delete()
   
5.                     End If
   
6.                 Next
   
7.             End If

复制代码