Метод Shape.DrawQuarterArc (Visio)

Статья
04/07/2023

Создает новую фигуру, путь которой состоит из эллиптической дуги, определенной двумя точками, и флага, переданного в качестве аргументов.

Синтаксис

выражение. DrawQuarterArc( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ , _SweepFlag_ )

Выражение Переменная, представляющая объект Shape .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
xBegin	Обязательный	Double	Координата x начальной точки дуги.
yBegin	Обязательный	Double	Координата y начальной точки дуги.
xEnd	Обязательный	Double	Координата x конечной точки дуги.
yEnd	Обязательный	Double	Координата Y конечной точки дуги.
SweepFlag	Обязательный	VisArcSweepFlags	Тип дуги, вогнутой или выпуклой.

Возвращаемое значение

Shape

Примечания

Начальные и конечные точки определяют ограничивающий прямоугольник дуги, а _SweepFlag_argument определяет, какая из двух возможных дуг рисуется в ограничивающем прямоугольнике. Ограничивающий прямоугольник всегда выравнивается по системе координат страницы; то есть ось x эллипса параллельна оси x страницы.

Следующие возможные значения для аргумента SweepFlag объявляются в VisArcSweepFlags в библиотеке типов Visio.

Константа	Значение	Описание
visArcSweepFlagConcave	0	Вогнутая дуга
visArcSweepFlagConvex	1	Выпуклая дуга

Если SweepFlag имеет значение visArcSweepFlagConcave, линия, соединяющая центр эллипса с дугой, проходит через убывающие углы; если это visArcSweepFlagConvex, он проходит через увеличивающееся углы.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод DrawQuarterArc для рисования вогнутой дуги на странице документа.

Public Sub DrawQuarterArc_Example 
 
 Dim vsoShape As Visio.Shape 
 Set vsoShape = ActivePage.DrawQuarterArc(3, 3, 6, 8, visArcSweepFlagConcave) 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через