sikaku-.xls

○ excelを立ち上げる

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

○ ユーザーフォームの挿入アイコンボタンをクリック

○ 「挿入」→「標準フォーム」

○下記のコードを書く

Sub shika()

Call shikaku(50, 20, 150, 200, 6)

End Sub

Sub shikaku(x0, y0, x1, y1, col)

ActiveSheet.Shapes.AddShape(msoShapeRectangle, x0, y0, x1, y1).Select

Selection.ShapeRange.Fill.ForeColor.SchemeColor = col

End Sub

○　上記、shikakuプロシッジャーは、

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

○　sheet1上に、四角形を図形描画ツールを用いて描く。

○　記録終了

○　「ツール」→「マクロ」→「Visual　Basic　Editor」でソースを表示し、

　　上記、shikakuプロシッジャーのように訂正する。