如何使用 vba 移动数据透视图

Question

我正在尝试创建一个在数据透视表旁边创建图表的函数 table 但无法使图表移动 =( 显示正确的数据并且工作正常，它刚刚被创建到远离实际枢轴 table.

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

如何使用 vba 移动数据透视图

how to move a pivot chart with vba

excel

vba

pivot-table

pivot-chart