ブログ

毎日業務改善(文字の方向だけを回転させることができるマクロ)

2013.12.15

SKIP

特許図面を作成しているときに、図形と符号の向きを回転・反転させたい時があります。この操作は、図形と符号をグループ化して行いますが、文字の向きも回転してしまいます。文字の向きだけを元に戻したいことがあります。
通常は、文字を1つずつ選択して回転させることで対応しますが、このマクロでは、文字と図形を一緒に選択した状態で実行すると、文字の方向だけを回転させることができ、作業精度・効率を向上させることができます。
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

アーカイブ