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
Du musst angemeldet sein, um einen Kommentar abzugeben.
Kann ich nicht ganz beantworten, warum, aber es schien ein Konflikt in der Bestellung zwischen
.Location xlLocationAsObject, "Charts"
und die position mit.left/etc
Verschieben Sie das Diagramm auf das Blatt, bevor Sie zwischen Platten mit
.location
schien Ihr problem zu lösen.Ihre code ausführt, irgendwas anderes aus dem text der Beschreibung.
Beim ändern von Links, von oben etc. er bewegt sich nicht das Diagramm von Blatt zu Blatt