Verschieben Sie vorhandene Diagramm in Excel mit VBA

Ich habe zwei Arbeitsblätter: PivotTables und-Charts. Ich erstellt,formatiert und zog Sie ein Diagramm aus den PivotTables Platte in die Charts Blatt. Jetzt muss ich nur wollen, um es zu bewegen aus der Standard-Zelle, um die Zellen, die ich will, aber ich halte die versagt haben, dies zu tun.

Wenn ich den folgenden code bekomme ich einen Laufzeitfehler: "die Methode 'Links' Objekt 'ChartObject' ist fehlgeschlagen". Was mache ich falsch?

Sub CreateChart()

    Sheets("PivotTables").Activate

    Dim myChart2 As chart
    Set myChart2 = Sheets("PivotTables").Shapes.AddChart.chart

    With myChart2
        .SetSourceData Source:=Range("D1").CurrentRegion
        .ChartType = xlColumnClustered
        .HasTitle = True
        .ChartTitle.Text = "Sum of Impressions by Product"
        .SeriesCollection(1).Format.Fill.ForeColor.RGB = rgbBlue
        .ShowAllFieldButtons = False
        .Location xlLocationAsObject, "Charts"
    End With

    Sheets("Charts").Activate

    With myChart2.Parent
        .Left = Sheets("Charts").Range("F1").Left
        .Top = Sheets("Charts").Range("F1").Top
        .Width = Sheets("Charts").Range("F1:J1").Width
        .Height = Sheets("Charts").Range("F1:F10").Height
    End With

End Sub
InformationsquelleAutor Victor | 2015-04-28
Schreibe einen Kommentar