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

结束功能

有什么建议吗？多谢你们。

Answer 1

我需要使用 objchart.Location 设置 objchart 一旦我添加了集合，现在它可以工作了 =)

这是最终代码，以备将来需要。

Function chart_from_pivot(a_pivot As PivotTable) As Chart
    Dim objChart As Chart
    Set objChart = Charts.Add

    objChart.SetSourceData a_pivot.TableRange1
    objChart.ChartType = xl3DColumn
    Set objChart = objChart.Location(Where:=xlLocationAsObject, Name:=a_pivot.Parent.Name)

    objChart.ChartStyle = 294

    objChart.ChartArea.Left = ThisWorkbook.Sheets("Charts").Range("B10").Left
    objChart.ChartArea.Top = ThisWorkbook.Sheets("Charts").Range("B10").Top   
    chart_from_pivot = objChart
End Function