オートシェイプの位置がずれる件について教えてください

質問

ＶＢのエクセル操作で繰り返し処理を行うとオートシェイプの開始位置がずれていくのですが対処方法を教えてください。
Excel ver.2007
OS XP pro
プログラム
With xlSheet.Shapes.AddShape(msoShapeOval, _
xlSheet.Range("E1").left + 5, xlSheet.Range("A" & Cell_Kaigyou).top + 8, xlSheet.Range("A1").Height, xlSheet.Range("A1").Width)
Cell_Kaigyou = Cell_Kaigyou + 1 'セル行数

回答No.1

KenKen_SP

こんにちは。

> xlSheet.Range("A" & Cell_Kaigyou).top + 8

を AddShape メソッドの第3引数にし、Top を変化させているのだから、
ずれて当然なのでは？

expression.AddShape(Type, Left, Top, Width, Height)

ご質問の意味を取り違えてますか？

お礼

ありがとうございます。
自己解決しました。