VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Diagramm aus Arbeitsblatt in Diagrammblatt übertragen

Gruppe

Grafik

Bereich

Diagramm

Thema

Diagramm aus Arbeitsblatt in Diagrammblatt übertragen

Problem

Wie kann ich ein in einem Tabellenblatt erstelltes Diagramm in ein neues Diagrammblatt per VBA verschieben?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub Uebertragen()
   Dim cht As Chart
   Range("A1:C1").Select
   Set cht = Charts.Add(before:=Sheets(1))
   With Worksheets(2).ChartObjects(1).Activate
      With ActiveChart.ChartArea
         .Select
         .Copy
      End With
   End With
   cht.Paste
   Worksheets("Tabelle2").ChartObjects(1).Delete
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Grafik und Diagramm