Diagramm als Bild einfügen, Diagramm löschen
20.05.2009 10:09:16
MBorn
ich murkse an folgendem Problem:
1. Diagramm erzeugen
2. Diagramm als Bild (BMP oder was anderes) an anderer Stelle im Tabellenblatt einfügen
3. Ursprüngliches Diagramm löschen.
Der Teil "Diagramm an anderer Stelle als Bild einfügen" funktioniert nicht.
Weiß jemand, was ich hier dran ändern muß?
Sub MakeDiagramm()
'Diagramm-Datenbereich auswählen
lcolumn = Range("Waa24").End(xlToLeft).Column
Range(Cells(24, 2), Cells(24, lcolumn)).Select
'Diagramm erzeugen, Linie
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Theater!$B$24:$AL$24")
ActiveChart.ChartType = xlLine
'Namen vergeben
ActiveChart.SeriesCollection(1).Name = "=Theater!$B$8"
'Legende löschen
ActiveChart.Legend.Delete
'Diagramm an anderer Stelle als Bild einfügen
For Each diagramm In Sheets("Theater").ChartObjects
ActiveSheet.ChartObjects(diagramm.Name).Activate
'ActiveChart.ChartArea.Select
Next
' ActiveSheet.ChartObjects("Diagramm 23").Activate
' ActiveChart.Parent.Delete
llcolumn = Range("Waa35").End(xlToLeft).Column - Range("B8")
Cells(72, llcolumn).Select
ActiveSheet.Paste
'Ursprüngliches Diagramm löschen
Dim lngZahl As Long
With ActiveSheet
If .ChartObjects.Count 0 Then
For lngZahl = .ChartObjects.Count To 1 Step -1
.ChartObjects(lngZahl).Delete
Next lngZahl
End If
End With
End Sub
Danke,
Born