Tojitaseniro.xls

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

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

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

○　色を塗り込む

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

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

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

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

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

Sub閉じた曲線色()

'

' kyokusen Macro

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

'

'

With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 222.75, 98.25)

.AddNodes msoSegmentCurve, msoEditingAuto, 280.5, 99.75

.AddNodes msoSegmentCurve, msoEditingAuto, 291#, 162#

.AddNodes msoSegmentCurve, msoEditingAuto, 228.75, 180.75

.AddNodes msoSegmentCurve, msoEditingAuto, 204#, 129.75

.AddNodes msoSegmentCurve, msoEditingAuto, 222.75, 98.25

.ConvertToShape.Select

End With

Selection.ShapeRange.Line.ForeColor.SchemeColor = 12

Selection.ShapeRange.Line.Visible = msoTrue

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

Selection.ShapeRange.Fill.Visible = msoTrue

Selection.ShapeRange.Fill.Solid

End Sub