Mehrere Charts per VBA erstellen lassen, Titel wird nicht angezeigt
Saluti,
folgender Code funktioniert einwandfrei für das erste Diagramm, bitte beachtet die (1) hinter dem ChartObjects.
Das zweite Diagramm baue ich identisch, die Diagrammfläche wird angezeigt, aber nicht der Titel. Offensichtlich ist das ansprechen mit ChartObjects(2) falsch?
Kann mir einer das mal bitte einer näherbringen, wie ich für ein n-tes Diagramm den Titel angeben kann, wie ich es anspreche?
Googlen bringt mich immer in die Nähe aber letztendlich komm ich zu keiner Lösung
folgender Code funktioniert einwandfrei für das erste Diagramm, bitte beachtet die (1) hinter dem ChartObjects.
ActiveSheet.Shapes.AddChart(xlColumnClustered, 450, 100, 250, 170).Select
ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale = 0
ActiveSheet.ChartObjects(1).Chart.HasTitle = True
ActiveSheet.ChartObjects(1).Chart.ChartTitle.Text = "Umsatz Postleitzahl " & strPLZ
With ActiveChart
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Name = "" & (intjahr - 1)
.Values = lngUmsatzAktuellesJahr(0, intPLZ)
'2dim Array: i(0) = Geschäftsjahr, intPLZ = PLZ-Bereich
End With
.SeriesCollection.NewSeries
With .SeriesCollection(2)
.Name = "" & intjahr
.Values = lngUmsatzAktuellesJahr(1, intPLZ)
End With
End With
Das zweite Diagramm baue ich identisch, die Diagrammfläche wird angezeigt, aber nicht der Titel. Offensichtlich ist das ansprechen mit ChartObjects(2) falsch?
ActiveSheet.Shapes.AddChart(xlColumnClustered, 700, 100, 600, 250).Select
ActiveSheet.ChartObjects(2).Activate
ActiveSheet.ChartObjects(2).Chart.Axes(xlValue).MinimumScale = 0
' Setzen des Diagrammtitels
ActiveSheet.ChartObjects(2).Chart.HasTitle = True
ActiveSheet.ChartObjects(2).Chart.ChartTitle.Text = "beteiligte Kunden " & intAnzahlKunden
Kann mir einer das mal bitte einer näherbringen, wie ich für ein n-tes Diagramm den Titel angeben kann, wie ich es anspreche?
Googlen bringt mich immer in die Nähe aber letztendlich komm ich zu keiner Lösung
Please also mark the comments that contributed to the solution of the article
Content-ID: 321855
Url: https://administrator.de/contentid/321855
Printed on: August 31, 2024 at 22:08 o'clock