毎日業務改善（文字の方向だけを回転させることができるマクロ）
2013.12.15
SKIP
特許図面を作成しているときに、図形と符号の向きを回転・反転させたい時があります。この操作は、図形と符号をグループ化して行いますが、文字の向きも回転してしまいます。文字の向きだけを元に戻したいことがあります。
通常は、文字を１つずつ選択して回転させることで対応しますが、このマクロでは、文字と図形を一緒に選択した状態で実行すると、文字の方向だけを回転させることができ、作業精度・効率を向上させることができます。
Private Sub 文字だけ回転_Click()
On Error Resume Next
For Each shp In ActiveWindow.Selection.ShapeRange
If shp.Type = 17 Then
shp.IncrementRotation -90#
End If
Next shp
End Sub
