vbaにてチャート位置を指定して貼り付けたときの位置ずれ

Question

下記コマンドでチャート作成したのですが、チャートの位置が微妙にずれてしまいます。理由は分かりますでしょうか。

Sub innertempAve()

Dim xValues As Range

Set xValues = Range("ad6:ad8")

Dim yValues As Range

Set yValues = Range("d6:d8")

'散布図を作成

Dim chartObj As ChartObject

Set chartObj = ActiveSheet.ChartObjects.Add(Left:=Range("bb4").Left, Top:=Range("bb4").Top, Width:=Range("bb4:be11").Width, Height:=Range("bb4:be11").Height)

With chartObj.Chart

.ChartType = xlXYScatter

.Axes(xlValue).MinimumScale = 40

.Axes(xlValue).MaximumScale = 90

'散布図のデータを設定

.SeriesCollection.NewSeries

.SeriesCollection(1).xValues = xValues

.SeriesCollection(1).Values = yValues

End With

End Sub

Answer 1

当方 Excel 2016 で、普通に再現しませんが、以下の場合どうなりますか？

1. Add 時の位置を変えたらどうなるか
2. されにそこから左上を BB4 に合わせたらどうなるか

　Top, Width, Height は正しく設定されているように見えるので、とりあえず 2 でうまくいくかも（まったく根拠はありませんが）。逆にこれで（あるいは 1 でも）ダメならハードウェアも含めた環境の問題か。

Answer 2

下記では再現しませんね。

Windows10、Microsoft365 Apps for enterprise バージョン 2303 (ビルド 16227.20212) ３２ビット

開発系の話なので、下記で聞いた方が良いかも？

　MSDN(VBA)