投稿日 | : 2006/04/19(Wed) 14:23 |
投稿者 | : ダンボ |
URL | : |
タイトル | : Re: セルの座標がずれる? |
Shapes.AddLineメソッドに変えたら同じシートでもずれなくなりました。
わけわからん。図形オブジェクトについて、もっと勉強します。
(きっとLinesオブジェクトとShapesオブジェクトは違うんだろうな?)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim X1 As Double, X2 As Double, Y1 As Double, Y2 As Double
With Target
.Copy
Debug.Print .Left, .Top, .Width, .Height
Y1 = .Top
X1 = .Left
Y2 = .Top + .Height
X2 = .Left + .Width
End With
ActiveSheet.Shapes.AddLine X1, Y1, X2, Y2 'ずれない
> ActiveSheet.Lines.Add X1, Y1, X2, Y2 'これだとずれる
End Sub