Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SourceData für Charts

SourceData für Charts
18.01.2007 11:11:23
Thomas
Hallo,
mit der Methode SetSourceData kann ich einen Datenbereich für ein Diagramm definieren.
Weiß jemand, wie ich den umgekehrten Weg gehen kann, nämlich den Datenbereich eines Diagrammes abfragen? Leider gibt es keine GetSourceData-Methode...
Vielen dank schon mal im voraus,
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SourceData für Charts
18.01.2007 11:35:27
EtoPHG
Hallo Thomas,
Ich hab da mal vor Jahren was als UDF zusammengestiefelt:

Option Explicit
Public Function getDiagramInfo(vSheet As Variant, vChart As Variant, vSeries As Variant) As String
'   Function to return chartnames and dataseries formulas
'   Copyright 2005
'   EtoP Hansueli Göldi
'   goeldi@akros.ch
If IsNumeric(vSheet) = False Then vSheet = ActiveWorkbook.Sheets(vSheet).Index
If IsNumeric(vChart) = False Then vChart = ActiveSheet.ChartObjects(vChart).Index
If IsNumeric(vSeries) = False Then
If vSeries = "Name" Then vSeries = 0
If vSeries = "Serie" Then vSeries = 1
End If
Select Case vSeries
Case 0
If vChart > ActiveWorkbook.Sheets(vSheet).ChartObjects.Count Then
getDiagramInfo = "# of Charts in Sheet(" & Trim(Str(vSheet)) & _
")= " & ActiveWorkbook.Sheets(vSheet).ChartObjects.Count
Else
getDiagramInfo = ActiveWorkbook.Sheets(vSheet).ChartObjects(vChart).Name
End If
Exit Function
Case Is > 0
If vSeries > ActiveWorkbook.Sheets(vSheet).ChartObjects(vChart).Chart.SeriesCollection.Count Then
getDiagramInfo = "# of Series in Chart(" & Trim(Str(vChart)) & _
")= " & ActiveWorkbook.Sheets(vSheet).ChartObjects(vChart).Chart.SeriesCollection.Count
Else
getDiagramInfo = ActiveWorkbook.Sheets(vSheet).ChartObjects(vChart).Chart.SeriesCollection(vSeries).FormulaLocal
End If
Exit Function
Case Else
getDiagramInfo = Null
Exit Function
End Select
End Function

Aufruf: Parameter
vSheet SheetName oder Index
vChart ChartName oder Index
vType 0 für Name >0 für Datenreihe
Vielleicht hilfts?
Gruss Hansueli
Anzeige
AW: SourceData für Charts
18.01.2007 12:15:36
Thomas
Hallo Hansueli,
vielen Dank, ich werde mir das mal anschauen. Vielleicht kann ich ja da etwas rausziehen.
Gruß,
Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige