Kann mir jemand sagen wie den VBA-Namen eins Diagramms von Hand ändern kann?
Set sr = Worksheets("Diagramme").ChartObjects.ShapeRange
i = 1
zeile = 0
zaehlerLeft = 1
Do While i <= sr.Count
sr.Item(i).Width = 129.75 'Breite Diagrammfläche
sr.Item(i).Height = 63.75 'Höhe Diagrammfläche
sr.Item(i).Top = (25.5 + (zeile * 76.5)) 'Position von oben
sr.Item(i).DrawingObject.Chart.ChartTitle.Font.Size = 7 'Schriftgröße Diagrammtitel
sr.Item(i).DrawingObject.Chart.Axes(xlCategory).TickLabels.Font.Size = 5 'Schriftgröße Rubrikenachse
sr.Item(i).DrawingObject.Chart.Axes(xlValue).TickLabels.Font.Size = 5 'Schriftgröße Größenachse
sr.Item(i).DrawingObject.Chart.PlotArea.Top = 14
sr.Item(i).DrawingObject.Chart.PlotArea.Height = 44 'Höhe Zeichnungsfläche
Select Case zaehlerLeft
Case 1
sr.Item(i).Left = 89.25 'Position von Links
Case 2
sr.Item(i).Left = 225.75 'Position von Links
Case 3
sr.Item(i).Left = 454.5 'Position von Links
Case 4
sr.Item(i).Left = 591 'Position von Links
End Select
If i Mod 4 = 0 Then
zeile = zeile + 1
zaehlerLeft = 0
End If
i = i + 1
zaehlerLeft = zaehlerLeft + 1
Loop
und so könntest du denke ich mal den Name ändern:
sr.Item(1).Name = "Diagramm1"
oder so:
sr.Item(1).CodeName="Diagramm1"
musst du mal testen, testen, testen
Gruss
Steffen D
xBeschriftung = "=Diagramme!R124C1:R125C1"
xDaten = "=Diagramme!R124C2:R125C2"
ActiveChart.SeriesCollection(1).XValues = xBeschriftung
ActiveChart.SeriesCollection(1).Values = xDaten
das Diagramm muss aber zuvor aktiviert/markiert werden
Gruss
Steffen