セルにオートシェイプで横線を引く

---

セルにオートシェイプで横線を引く

'以下は選択範囲の中央部にオートシェイプで横線を引きます。

Sub Sample32()

'選択範囲の中央部に横線を引きます。
With Selection
　　　ActiveSheet.Shapes.AddLine .Left, .Top + .Height * 1 / 2, .Left + .Width, .Top + .Height * 1 / 2
End With

End Sub

エクセルＶＢＡテクニック集トップ

---