Sikaku-cls.xls

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

○「マクロの記録」のマクロ名を「四角形」とする

○　図形描画で四角形を描く

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

○「表示」→「ツールバー」→「フォーム」

○　フォームの「ボタン」を選択し、Sheet1上に作成する

○「マクロの登録」が表示されるので、「四角形」を選択する

○　ボタンを右クリックし、「テキスト編集」を選択

○　ボタン名を「四角形」と書き改める

○　ボタンを右クリックして、「テキスト編集の終了」を選択

○　四角形を選択する

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

○「マクロの記録」のマクロ名を「クリア」とする

○　Deleteキーを押すと四角形が削除される

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

○「表示」→「ツールバー」→「フォーム」

○　フォームの「ボタン」を選択し、Sheet1上に作成する

○「マクロの登録」が表示されるので、「クリア」を選択する

○　ボタンを右クリックし、「テキスト編集」を選択

○　ボタン名を「削除」と書き改める

○　ボタンを右クリックして、「テキスト編集の終了」を選択

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

Sub四角形()

'

' sikaku Macro

' マクロ記録日 : 2006/6/11 ユーザー名 : hisa

'

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 87#, 105.75, 55.5, 42.75). _

Select

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

Selection.ShapeRange.Fill.Transparency = 0#

Selection.ShapeRange.Fill.Patterned msoPatternLargeGrid

Selection.ShapeRange.Line.ForeColor.SchemeColor = 10

Selection.ShapeRange.Line.Visible = msoTrue

End Sub

Sub cls()

'

' cls Macro

' マクロ記録日 : 2006/6/11 ユーザー名 : hisa

'

Selection.Delete

End Sub