Tojitaseniro.xls

○「ツール」→「マクロ」→「新しいマクロの記録」

○「マクロの記録」のマクロ名を「閉じた線色」とする

○　図形描画で閉じた線形状を描く

○　色を塗り込む

○「ツール」→「マクロ」→「記録終了」

○「ツール」→「マクロ」→「マクロ」

○「閉じた線色」を選択し、「実行」をクリックする

○　Sheet1上に閉じた線形状が描かれる

○参考（Module1のソースコード）

Sub閉じた線色()

'

' tojitaseniro Macro

' マクロ記録日 : 2006/1/21 ユーザー名 : hisa

'

'

With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 195#, 83.25)

.AddNodes msoSegmentLine, msoEditingAuto, 305.25, 60.75

.AddNodes msoSegmentLine, msoEditingAuto, 311.25, 160.5

.AddNodes msoSegmentLine, msoEditingAuto, 215.25, 159#

.AddNodes msoSegmentLine, msoEditingAuto, 195#, 83.25

.ConvertToShape.Select

End With

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13

Selection.ShapeRange.Fill.Visible = msoTrue

Selection.ShapeRange.Fill.Solid

End Sub