移位图表

Question

我创建了两个数据透视表，并为每个数据透视表创建了一个图表，无论我做什么，这些图表总是叠加在一起的，我总是必须用鼠标拖动才能看到第二个图表。 我如何转移2？ 附加了我创建表格和图表的代码部分。

谢谢

 Set PTable = PCache.CreatePivotTable _
    (TableDestination:=graphe_dos.Cells(1, 1), TableName:="Test")
    graphe_dos.Cells(2, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = False
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
    '**********************************
    '          2nd Pivot Tables
    '**********************************
LastRow = graphe_dos.Cells(Rows.count, 1).End(xlUp).Row
 Set PTable2 = PCache2.CreatePivotTable _
    (TableDestination:=graphe_dos.Cells(LastRow + 5, 1), TableName:="Test2")
    'Sheets("Graphe DOS").Select
    graphe_dos.Cells(LastRow + 6, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = False
    ActiveSheet.Shapes.AddChart2(204, xlColumnClustered).Select

Answer 1

您可以将形状/图表移动到所需的任何位置

With ActiveSheet.Shapes("ShapeName")
    .Left = 3
    .Top = 2
End With

---

甚至

With ActiveSheet.Shapes.AddChart2(204, xlColumnClustered)
    .Left = 3
    .Top = 2
End With

应该工作。