Создание группы объектов TableOfFigures разных
|
Sub GroupOfShapes() ' Создание группы объектов TableOfFigures разных типов 'Создание объекта (коллекции) TableOfFiguresRange 'Группирование объектов Dim SR As TableOfFiguresRange, SH As TableOfFigures With ActiveDocument.shapes 'Добавляем текстовое окно. Координаты Left-Top-Width-Height относительно якоря .AddTextbox(msoTextOrientationHorizontal, 220, _ 40, 120, 30).Select Selection.ShapeRange.Name = "Parts" Selection.ShapeRange.TextFrame.TextRange.Select Selection.Collapse Selection.TypeText Text:="Части документа" Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'Добавляем стрелку .AddLine(280, 70, 280, 100).Select Selection.ShapeRange.Name = "Ar1" Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle 'Добавляем линию .AddLine(120, 100, 440, 100).Select Selection.ShapeRange.Name = "Lin1" 'Добавляем стрелку .AddLine(120, 100, 120, 130).Select Selection.ShapeRange.Name = "Ar2" Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle 'Добавляем стрелку .AddLine(440, 100, 440, 130).Select Selection.ShapeRange.Name = "Ar3" Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle 'Добавляем текстовое окно .AddTextbox(msoTextOrientationHorizontal, 80, _ 130, 120, 30).Select Selection.ShapeRange.Name = "Part1" Selection.ShapeRange.TextFrame.TextRange.Select Selection.Collapse Selection.TypeText Text:="Рисунки" 'Добавляем текстовое окно .AddTextbox(msoTextOrientationHorizontal, 400, _ 130, 120, 30).Select Selection.ShapeRange.Name = "Part2" Selection.ShapeRange.TextFrame.TextRange.Select Selection.Collapse Selection.TypeText Text:="Таблицы" 'Группирование объектов Set SR = .Range(Array("Parts", "Ar1", "Lin1", _ "Ar2", "Ar3", "Part1", "Part2")) SR.Select HowManyShapes Set SH = SR.Group SH.Name = "Fig.1" SH.Select HowManyShapes End With End Sub |
| Листинг 1.33. |
| Закрыть окно |
