Chart in zu öffnender Datei erstellen.
07.06.2018 17:22:09
Norman
ich möchte mit dem Skript eine andere Datei öffnen und in dieser ein Diagramm erstellen. Dafür wollte ich zuerst mal ein ChartObject erstellen, wie in folgender Anleitung: https://www.herber.de/mailing/vb/html/xlobjchartobjects.htm
Zitat aus Link:
Dim ch As ChartObject
Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)
ch.Chart.ChartWizard source:=Worksheets("sheet1").Range("a1:a20"), _
gallery:=xlLine, title:="New Chart"
da ich allerdings nicht die Macrodatei sondern die andere Datei bearbeiten möchte, hab ich das wie folgt geändert:
Dim co As ChartObject
Dim cht As Chart
Dim sc1 As SeriesCollection
Dim ser1 As Series
Set co = Workbooks(zDatei).Sheets(10).ChartObjects.Add(Range("A5").Left, Range("A5"). _
Top, 500, 300)
co.Name = "F to s Graph"
Set cht = co.Chart
With cht
.HasTitle = True
.HasLegend = True
.ChartTitle.Text = "Kraft-Weg-Diagramm"
Set sc1 = .SeriesCollection
Set ser2 = sc1.NewSeries
With ser1
.Name = "M1"
.XValues = Workbooks(zDatei).Sheets(7).Range(Cells(1, 4), Cells(1, 14000))
.Values = Workbooks(zDatei).Sheets(9).Range(Cells(1, 4), Cells(1, 14000))
.ChartType = xlXYScatterLinesNoMarkers
End With
End With
Er akzeptiert den Pfad nicht und kann ".add" dem Sheets 10 nicht zuordnen.
Woran kann das liegen?
Wie kann ich den Ort des Charts auf die geöffnete Datei, Blatt 10 festlegen?
Vielen Dank schon mal!