Hallo
brauche eure Hilfe für dieses Problem. Ich erstelle mit folgendem Code ein Diagramm und verändere die Größe.
Wie kann ich dem Diagramm einen eindeutigen Namen zuweisen? So das ich es danach direkt ansprechen und ausdrucken kann.
mit dem Befehl .name = "Name des Diagramms" in der with Anweisung geht das nicht.
Danke für eure Hilfe
Niko
Set objChart = Application.Charts.Add
With objChart
'Diagramm-Typ und -Quelldatenbereich festlegen
.ChartType = xlLineMarkers
.SetSourceData Source:=rngData, PlotBy:=xlColumns
'Titel zuweisen
.HasTitle = True
.ChartTitle.Text = "On Stock Level plotted on Date from" & _
vbLf & "Site ID: " & sitenr1
'Diagramm auf Tabellenblatt einbetten
.Location Where:=xlLocationAsObject, name:=wksData.name
End With
'Objektverweis auf das eingebettete Diagramm setzen
Set objChartObj = wksData.ChartObjects(wksData.ChartObjects.Count)
'Position und Größe zuweisen
With objChartObj
.Left = 10
.Top = 50
.Width = 600
.Height = 400
End With