Excel VBA 質問スレ Part33
レス数が900を超えています。1000を超えると表示できなくなるよ。
0930デフォルトの名無しさん
2014/06/26(木) 23:36:54.58ID:kbxRbX97セルの中心座標は
With Range("A1")
x1 = .Left + .Width / 2
y1 = .Top + .Height / 2
End With
線を引くのは
ActiveSheet.Shapes.AddLine x1, y1, x2, y2
レス数が900を超えています。1000を超えると表示できなくなるよ。