スキルアップ・問題解決なら、モーグにおまかせ！

請求書を作成するにあたり
10行目のA〜G列に明細を入力します
そのとき、空欄でないセルの下にオートシェイプで0.5�oの線を引くにはどうしたらよいでしょうか？
また、クリアボタンで、明細とその線を消去したいです
  
用紙の範囲をこえてしまったら、次ページになるように設定しているので
固定で何行目まで、といったことはわかりません
  
なぜこのような面倒なことをするかというと
規定の線では太すぎることと、点線（一番細い線）ではプリンタの都合上
印字されないからです

通常（デフォルト）の罫線では、太すぎる
ということでしょうか？
罫線の下だけ太さを変更する方法では、ダメなんですか？

”なし”の下の線が一番細いですがそれでも太すぎます
ネットに書いてあるように点線にすると、レーザープリンタの600DPIではまったく印字されません
 
オートシェイプで0.5�oと書きましたが0.5PTの間違いですした
すみません

https://www.moug.net/faq/kiyaku.html
> 禁止事項
> コード制作依頼
> 「●●●を実行するようなマクロを作りたいのですが」「●●●をする方法を教えてください」といった、
> コード制作依頼ともとれるような質問はおやめください。
ご自分がどこまでトライしたかも示さずに、制作依頼するのはやめましょう。

下記は、どうなっているのですか。
https://www.moug.net/faq/viewtopic.php?t=81717
 
 
回答してくれた方に、お礼ぐらい言うのがマナーだと思いますが。
 
 
なお、質問のヒント。Rangeオブジェクトには Top,Left,Hight,Width プロパティがあります。
https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.top
https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.left
https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.hight
https://learn.microsoft.com/ja-jp/office/vba/api/excel.range.width
 
始点・終点はポイント単位です。
https://learn.microsoft.com/ja-jp/office/vba/api/excel.shapes.addconnector
 
 

引用:
規定の線では太すぎることと、点線（一番細い線）ではプリンタの都合上印字されないからです

引用:
ネットに書いてあるように点線にすると、レーザープリンタの600DPIではまったく印字されません

プリンターの性能に依存しそうですね。当方のプリンターでは ”なし”の下の線でデフォルトの太さより細い線で印字できました。Suzuさんの回答のプリンターの設定をいじってみても改善されないようなら、Shapeを使うことになりますが、ユーザーがShapeを選択するのを防ぐために下記のように設定しておくといいでしょう。
 
標準モジュールに下記のマクロを作成しておきます。

Sub 直線_Click()
    ActiveSheet.Shapes(Application.Caller).TopLeftCell.Select
End Sub