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

ＶＢのエクセル操作で繰り返し処理を行うとオートシェイプの開始位置がずれていくのですが対処方法を教えてください。
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 回答日時： 2008/04/11 23:02

こんにちは。

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

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

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

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

この回答へのお礼

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

お礼日時：2008/04/14 12:10