Page.DrawQuarterArc 方法 (Visio)

创建一个形状,其路径由作为参数传入的两个点和标志定义的椭圆弧组成。

语法

expressionDrawQuarterArc( _xBegin_ , _yBegin_ , _xEnd_ , _yEnd_ , _SweepFlag_ )

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

参数

名称 必需/可选 数据类型 说明
xBegin 必需 Double 弧的起点的 x 轴坐标值。
yBegin 必需 Double 弧的起点的 y 轴坐标值。
xEnd 必需 Double 弧的终点的 x 轴坐标值。
yEnd 必需 Double 弧的终点的 y 轴坐标值。
SweepFlag 必需 VisArcSweepFlags 弧的类型,凹焊缝或凸焊缝。

返回值

Shape

说明

起点和端点定义弧线的边框,_SweepFlag_argument确定绘制边框内两个可能的弧形中的哪一个。 边界矩形始终与页面坐标系对齐;也就是说,椭圆的 x 轴与页面的 x 轴平行。

下列可能的 SweepFlag 参数值是由 Visio 类型库在 VisArcSweepFlags 中声明的。

常量 Description
visArcSweepFlagConcave 0 凹弧
visArcSweepFlagConvex 1 凸弧

如果 SweepFlagvisArcSweepFlagConcave,则连接椭圆中心到弧线的线条通过递减的角度扫描:如果它是 visArcSweepFlagConvex,则它会扫描增加的角度。

示例

以下 Microsoft Visual Basic for Applications (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 支持和反馈,获取有关如何接收支持和提供反馈的指南。