Herbers Excel/VBA-Archiv

Grafik per VBA erstellen | Herbers Excel-Forum

• Grafik per VBA erstellen von Peter Egloff vom 02.02.2010 19:10:12
• AW: Grafik per VBA erstellen - von Beverly am 02.02.2010 20:24:27
  • AW: Grafik per VBA erstellen - von Peter Egloff am 03.02.2010 10:57:53

Betrifft: Grafik per VBA erstellen von: Peter Egloff
Geschrieben am: 02.02.2010 19:10:12

Hallo Zusammen
Per VBA-Recorder erstelle ich folgendes Marko (einzelne Bereiche selektiert)

'Range("A1:D1,A5:D5").Select
' Range("A5").Activate
' ActiveSheet.Shapes.AddChart.Select '<<<<<<<<<<< Fehler 1004, Anwendungs- und Obijektorientierter 'Fehler
' ActiveChart.SetSourceData Source:=Range( _
' "'Grafikdaten'!$A$1:$D$1;'Grafikdaten'!$A$5:$D$5")
' ActiveChart.ChartType = xlPyramidColClustered

Wenn ich das Marko aber wiederholen will, kommt der Fehler
Weiss jemand, wie ich das lösen kann?
Vielen Dank für Eure Unterstützunge
Pepe

Betrifft: AW: Grafik per VBA erstellen von: Beverly
Geschrieben am: 02.02.2010 20:24:27

Hi Pepe,

Sub DiaErstellen()
    Dim chDiagramm As ChartObject
    Set chDiagramm = ActiveSheet.ChartObjects.Add(Range("A5").Left, Range("A5").Top, 350, 200)
    With chDiagramm.Chart
        .SetSourceData Source:=Worksheets("Grafikdaten").Range("$A$1:$D$1,$A$5:$D$5")
        .ChartType = xlPyramidColClustered
    End With
    Set chDiagramm = Nothing
End Sub

---

Betrifft: AW: Grafik per VBA erstellen von: Peter Egloff
Geschrieben am: 03.02.2010 10:57:53

Hallo Karin - Supperlösung, auch das mit der Positionierung der Grafik war für mich eine Frage, die jetzt geklärt ist - en schöne Tag
Pepe

Beiträge aus den Excel-Beispielen zum Thema "Grafik per VBA erstellen"