Office: (Office 2007) Datenbereich Diagramm auslesen

ARunow98 · 24. Dezember 2007

Hi!

Ich habe folgendes Problem: in einem Excel-Blatt sind zig (ca. 100) Diagramme, die alle unstrukturierte Namen aufweisen. Ich würde den Diagrammen nun gerne via VBA neue Namen zuweisen.
FRAGE: Wie kann ich den Datenbereich jedes einzelnen Diagrammes auslesen? Anhand dessen weiß ich dann nämlich, zu welcher Abteilung das Diagramm gehört u. könnte es dann entsprechend mit einem Namen versehen.
Ein indexbasiertes Durchlaufen ist nicht möglich, da die Diagramme auch nicht in der "Index-Reihenfolge" im Excel-Blatt angeordnet sind.

Vielen Dank für Eure Hilfe!
Gruß,
ARunow98

:)

jinx · 26. Dezember 2007

Moin, ARunow98,

Code:

Sub DiagrammFormelAuslesen()

Dim oChrtObj As ChartObject

Set oChrtObj = Sheets("Tabelle1").ChartObjects(1)
MsgBox oChrtObj.Chart.SeriesCollection(1).Formula

Set oChrtObj = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub DiagrammnamenAusgeben()

Dim oCht As ChartObject

For Each oCht In ActiveSheet.ChartObjects
MsgBox ActiveSheet.Shapes(oCht.Name).Name
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Sub DiagrammUmbenennen()

Dim oCht As ChartObject

Set oCht = ActiveSheet.ChartObjects(1)

MsgBox "Folgendes Diagramm umbenennen: " & oCht.Name

On Error Resume Next
oCht.Name = "TestName"
If Err Then
MsgBox "Fehler Nr. " & Err.Number & vbCrLf & "Beschreibung: " & _
Err.Description, vbExclamation, "Hinweis"
Else
MsgBox "Neuer Name für das Diagramm: " & oCht.Name, vbInformation, "Hinweis"
End If

Set oCht = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Reicht das als Ansatz? *wink.gif*

ARunow98 · 26. Dezember 2007

Vielen Dank, das sind genau die Ansätze, die mir erstmal weiterhelfen.
Eine Frage hab ich allerdings noch: das Auslesen der Formel ist ja das Auslesen der Formel für die erste Datenreihe des Diagramms, oder? Der Datenbereich des gesamten Diagramms ist folglich nicht auslesbar?

Grüße,
ARunow98

jinx · 26. Dezember 2007

Moin, ARunow98,

ich kenne nur den Weg über die Auflistung der SeriesCollection:

Code:

Sub DatenbezügeInArrays()

Dim oSerCol As Series
Dim oDiagramm As Chart

Set oDiagramm = ActiveSheet.ChartObjects(1).Chart

For Each oSerCol In oDiagramm.SeriesCollection
With oSerCol
.Values = .Values
.XValues = .XValues
.Name = .Name
End With
Next oSerCol

Set oDiagramm = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2007) Datenbereich Diagramm auslesen

Datenbereich Diagramm auslesen

Datenbereich Diagramm auslesen

Datenbereich Diagramm auslesen

Datenbereich Diagramm auslesen - Similar Threads - Datenbereich Diagramm auslesen

Dynamischer Datenbereich Diagramm - verschiedene Tabellenblätter

Name in Datenbereich suchen und zugehörigen Wert in der Zeile in einer neuen Tabelle ausgeben

VBA Datenbereich kopieren

Diagramm erstellen, Datenbereich in anderem Tabellenbaltt

Verwenden einer Sprachausgabe zum Benennen einer Zelle oder eines Datenbereichs in Excel

Datenbereich von Diagrammen (Punkt X,Y) veränderlich gestalten

dynamischer / variabler Datenbereich fürs Diagramm