excel - vbaでピボットグラフを移動する方法

Question

ピボット テーブルの横にグラフを作成する関数を作成しようとしていますが、グラフを移動できません =( 正しいデータを表示し、正常に動作します。実際のピボット テーブルから遠く離れた場所に作成されたばかりです。

Function chart_from_pivot(a_pivot As PivotTable) As Chart
Debug.Print 0

Dim objChart As Chart
Set objChart = Charts.Add

Debug.Print 1

objChart.SetSourceData a_pivot.TableRange1
Debug.Print 2
objChart.ChartType = xl3DColumn
Debug.Print 3
objChart.Location Where:=xlLocationAsObject, Name:=a_pivot.Parent.Name
Debug.Print 4

'HERE IS THE ISSUE!!!!
'objChart.Parent.Left = Range("D2").Left
'Debug.Print 5
'objChart.Parent.Top = Range("D2").Top
'Debug.Print 6

'objChart.ChartStyle = 294
'Debug.Print 7

chart_from_pivot = objChart

終了機能

推奨事項はありますか？みんなありがとう。