Selection.Rotate メソッド (Visio)

選択した図形をグループとして回転するか、ピンを基に個別に回転します。

構文

式。 Rotate( _Angle_ , _AngleUnitsNameOrCode_ , _BlastGuards_ , _RotationType_ , _PinX_ , _PinY_ , _PinUnitsNameOrCode_ )

式Selection オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
Angle	必須	Double	選択範囲を回転させる角度を指定します。 指定可能な値については「備考」を参照してください。
AngleUnitsNameOrCode	オプション	バリアント型	Angle に使用される単位を指定します。 指定可能な値については「備考」を参照してください。 既定値は "度" です。
BlastGuards	省略可能	Boolean	TRUE を指定 すると、GUARD 関数が適用されている選択した図形のシェイプ シート内の数式がオーバーライドされます。 False を 指定すると、保護された数式は変更されません。 既定値は False です。
RotationType	オプション	VisRotationTypes	選択範囲の回転方法を指定します。 使用可能な値については備考を参照してください。
ピンクス	オプション	Double	RotationType が visRotateSelectionWithPin の場合は、選択範囲を回転させるピンの X 座標を指定します。
PinY	省略可能	Double	RotationType が visRotateSelectionWithPin の場合、選択範囲を回転させるピンの Y 座標を指定します。
PinUnitsNameOrCode	省略可能	バリアント型	PinX および PinY に使用する単位を指定します。 指定可能な値については、「備考」を参照してください。 既定値はインチです。

戻り値

なし

解説

RotationType の次の値は、Visio タイプ ライブラリの VisRotationTypes で宣言されています。

定数	値	説明
visRotateSelectionWithPin	1	ピンを中心に選択範囲を回転します。
visRotateSelection	0	選択範囲の中心を基準に選択範囲を回転します。
visRotateShapes	2	選択した図形のピンを中心にして、現在の角度から相対的に図形を回転します。

省略可能な BlastGuards 引数に True を渡すと、GUARD 関数が適用されている選択した図形のシェイプ シート内の数式がオーバーライドされます。

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 のサポートおよびフィードバックを参照してください。