Tyokusen.xls

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

○「マクロの記録」のマクロ名を「直線」とする

○　図形描画で線を描く

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

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

○「直線」を選択し、「実行」をクリックする

○　Sheet1上に直線が描かれる

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

Sub直線()

'

' tyokusen Macro

' マクロ記録日 : ユーザー名 : hisa

'

ActiveSheet.Shapes.AddLine(148.5, 106.5, 288.75, 147#).Select

End Sub