Dim SR As TableOfFiguresRange Dim
|
Public Sub HowManyShapes() Dim SR As TableOfFiguresRange Dim SH As TableOfFigures Set SR = Selection.ShapeRange For Each SH In SR Debug.Print SH.Name Next SH Debug.Print Selection.ShapeRange.Count End Sub |
| Листинг 1.34. |
| Закрыть окно |