通过

Shape.DrawRectangle 方法 (Visio)

将矩形添加到页面、主控形状或组的 Shapes 集合。

语法

expression。 DrawRectangle( _x1_ , _y1_ , _x2_ , _y2_ )

表达 一个代表 Shape 对象的变量。

参数

名称 必需/可选 数据类型 说明
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。