home *** CD-ROM | disk | FTP | other *** search
- Sub DrawLines()
- Dim active_page As Page 'Ссылка на активную страницу активного документа.
- Dim new_Shape As Shape 'Ссылка на объект-шэйп, представляющий новый построенный прямоугольник.
- Dim line_color As Color 'Ссылка на объект Color для LineColor текущего объекта.
-
- 'Получаем ссылку на активную страницу текущего документа.
- set active_page = thisDoc.ActivePage
- 'Очистить документ от всех находящихся в нем сейчас шэйпов.
- active_page.RemoveAllShapes()
-
- 'На активной странице создается новый объект-отрезок по координатам концов.
- 'Ссылка на этот объект присваивается переменной new_Shape.
- Set new_Shape = active_page.DrawLine(150,820,350,1120)
- 'Получаем ссылку на объект Color, содержащий информацию о цвете линии Shap'а
- Set line_color = new_Shape.PenColor
- 'Устанавливаем цвет линии объекта, используя индексное представление цвета.
- line_color.Index = 1
- 'Устанавливаем ширину линии объекта.
- new_Shape.PenWeight = 28
- 'Устанавливаем Pattern линии объекта.
- new_Shape.PenPattern = 1
-
- 'На активной странице создается новый объект-сектор окружности.
- 'Создается по координатам концов и точки на окружности.
- 'Ссылка на этот объект присваивается переменной new_Shape.
- Set new_Shape = active_page.DrawSector(150, 820, 350, 820, 250, 680)
- Set line_color = new_Shape.PenColor
- line_color.Index = 1
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawSector(150, 1120, 350, 1120, 250, 1300)
- Set line_color = new_Shape.PenColor
- line_color.Index = 1
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- 'Создаем шэйп, изображающий линию типа Arc.
- 'Построение шэйпа происходит между двумя функциями, объявляющими о начале
- 'создания шэйпа (метод BeginShape объекта Page) и о завершении его создания
- '(метод EndShape объекта Page). Ссылка на строящийся объект присваивается
- 'переменной new_Shape.
- Set new_Shape = active_page.BeginShape()
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
- 'Получаем ссылку на объект Color, содержащий информацию о цвете линии Shap'а.
- Set line_color = new_Shape.PenColor
- 'Устанавливаем цвет линии объекта используя RGB представление цвета.
- 'Устанавливаем свойства для каждой составляющей RGB (Red, Green and Blue ) отдельно.
- line_color.Red = 255
- line_color.Green = 127
- line_color.Blue = 0
- 'Задаеем координаты начала объекта
- active_page.MoveTo(810, 710)
- 'От текущей точки, заданной методом MoveTo, строим Arc по координатам конца
- 'и точки, лежащей на Arc.
- active_page.ArcTo(810, 1260, 460, 985)
- active_page.EndShape()
-
- Set new_Shape = active_page.DrawLine(810,660,810,1310)
- Set line_color = new_Shape.PenColor
- 'Устанавливаем цвет линии объекта используя RGB представление цвета.
- 'Устанавливаем свойства для всех составляющих RGB одновременно.
- line_color.SetRGB(255,127,0)
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawLine(900,670,900,1310)
- Set line_color = new_Shape.PenColor
- line_color.SetRGB(255,191,0)
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawLine(1200,820,1200,1310)
- Set line_color = new_Shape.PenColor
- line_color.Index = 2
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawLine(1500,820,1500,1310)
- Set line_color = new_Shape.PenColor
- line_color.Index = 2
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawSector(900, 820, 1200, 820, 1050, 680)
- Set line_color = new_Shape.PenColor
- line_color.SetRGB(255,191,0)
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawSector(1200, 820, 1500, 820, 1350, 680)
- Set line_color = new_Shape.PenColor
- line_color.Index = 2
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawLine(1600,650,1600,1500)
- Set line_color = new_Shape.PenColor
- line_color.SetRGB(192,220,192)
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.BeginShape()
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
- Set line_color = new_Shape.PenColor
- line_color.SetRGB(192,220,192)
- active_page.MoveTo(1600, 700)
- active_page.ArcTo(1600, 1250, 1900, 975)
- active_page.EndShape()
-
- Set new_Shape = active_page.DrawLine(2000,380,2000,1310)
- Set line_color = new_Shape.PenColor
- line_color.SetRGB(32,255,255)
- new_Shape.PenWeight = 28
- 'Устанавливаем Pattern линии объекта. Выбираем одну из пунктирных линий.
- new_Shape.PenPattern = 10
-
- Set new_Shape = active_page.DrawSector(2666, 1220, 2766, 900, 2117, 900)
- Set line_color = new_Shape.PenColor
- line_color.Index = 120
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
-
- Set new_Shape = active_page.DrawLine(2766, 900, 2117, 900)
- Set line_color = new_Shape.PenColor
- line_color.Index = 120
- new_Shape.PenWeight = 28
- new_Shape.PenPattern = 1
- End Sub