設計書の記述内容を強調したり、
エビデンスの確認箇所を強調したりする際に
赤い太枠をよく使うのでマクロで作成します。
1 | Sub RedBox() |
2 | ' |
3 | ' RedBox Macro |
4 | ' |
5 | ' 赤い太枠四角線を作ります。 |
6 |
7 | ActiveSheet.Shapes.AddShape(msoShapeRectangle, Selection.Left, Selection.Top, 96.75, 96.75).Select |
8 |
9 | Selection.ShapeRange.Line.Weight = 2.25 |
10 | Selection.ShapeRange.Line.Visible = msoTrue |
11 | Selection.ShapeRange.Line.Style = msoLineSingle |
12 | Selection.ShapeRange.Line.ForeColor.SchemeColor = 10 |
13 | Selection.ShapeRange.Line.Visible = msoTrue |
14 | Selection.ShapeRange.Fill.Visible = msoFlase |
15 |
16 | End Sub |