Selection.Rotate 方法 (Visio)
将所选形状作为一组或单独围绕其图钉旋转。
语法
expression. Rotate( _Angle_ , _AngleUnitsNameOrCode_ , _BlastGuards_ , _RotationType_ , _PinX_ , _PinY_ , _PinUnitsNameOrCode_ )
表达 一个代表 Selection 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| 角度 | 必需 | Double | 指定选定内容要旋转的角度。 有关可能值，请参阅“说明”。 |
| AngleUnitsNameOrCode | 可选 | Variant | 指定要为 Angle 使用的单位。 有关可能值，请参阅“说明”。 默认值为 degrees。 |
| BlastGuards | 可选 | Boolean | 如果为 True ，则替代已应用 GUARD 函数的任何选定形状的 ShapeSheet 中的公式; 如果为 False ，则保留受保护的公式不变。 默认值为 False。 |
| RotationType | 可选 | VisRotationTypes | 指定如何旋转所选内容。 有关可能值，请参见备注。 |
| PinX | 可选 | Double | 当 RotationType 为 visRotateSelectionWithPin 时，指定将要作为选定内容的旋转中心点的 X 位置。 |
| PinY | 可选 | Double | 当 RotationType 为 visRotateSelectionWithPin 时，指定将要作为选定内容的旋转中心点的 Y 位置。 |
| PinUnitsNameOrCode | 可选 | Variant | 指定要为 PinX 和 PinY 使用的单位。 有关可能值，请参阅“说明”。 默认值为 inches。 |
返回值
Nothing
注解
在 Visio 类型库中的 VisRotationType 中声明 RotationType 的以下可能值。
| 常量 | 值 | Description |
|---|---|---|
| visRotateSelectionWithPin | 1 | 围绕旋转中心点旋转选定内容。 |
| visRotateSelection | 0 | 相对于选定内容的中心旋转选定内容。 |
| visRotateShapes | 2 | 相对于选定形状的当前角度围绕其旋转中心点旋转选定形状。 |
为可选 BlastGuards 参数传递 True 将覆盖已应用 GUARD 函数的任何选定形状的 ShapeSheet 中的公式。
RotationType 的默认值为 visRotateSelection。
可以将 AngleUnitsNameOrCode 或 PinUnitsNameOrCode 指定为整型值（VisUnitCodes 的成员）或字符串值（如“radians”或“inches”）。 如果字符串无效或单位代码不合适（非文本），则将生成错误。
有关有效单位字符串以及对应的自动化常量（整型值）的完整列表，请参阅关于度量单位。
示例
此 Microsoft Visual Basic for Applications (VBA) 宏说明如何使用 Rotate 方法将选定内容相对于选定内容的中心旋转 45 度。
Public Sub Rotate_Example()
Dim vsoShape1 As Visio.Shape
Dim vsoShape2 As Visio.Shape
Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(1, 9, 3, 7)
Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(3, 6, 5, 5)
ActiveWindow.DeselectAll
ActiveWindow.Select vsoShape1, visSelect
ActiveWindow.Select vsoShape2, visSelect
Application.ActiveWindow.Selection.Rotate 45, visDegrees
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。