Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Добавляет прямоугольник в коллекцию Фигуры страницы , образца или группы.
Синтаксис
выражение. DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )
Выражение Переменная, представляющая главный объект.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| x1 | Обязательный | Double | Координата x одного угла прямоугольника ширины и высоты. |
| y1 | Обязательный | Double | Координата по оси Y одного угла прямоугольника ширины и высоты. |
| x2 | Обязательный | Double | Координата x другого угла прямоугольника ширины и высоты. |
| y2 | Обязательный | Double | Координата y другого угла прямоугольника ширины и высоты. |
Возвращаемое значение
Shape
Примечания
Использование метода DrawRectangle эквивалентно использованию средства "Прямоугольник" в приложении. Аргументы находятся во внутренних единицах рисования по отношению к координатам страницы, образца или группы, где размещается прямоугольник.
Пример
В следующем примере показано, как нарисовать прямоугольник на активной странице.
Public Sub DrawRectangle_Example()
Dim vsoShape As Visio.Shape
Set vsoShape = ActivePage.DrawRectangle(1, 4, 4, 1)
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.