Klasse ChartData (PowerPoint VBA)

Die Klasse ChartData stellt einen Zugriff auf die verknüpften oder eingebetteten Daten dar, die einem Diagramm zugeordnet sind.

Set

Um eine ChartData -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim cda as ChartData
Set cda = ActiveWindow.RangeFromPoint.Chart.ChartData

Klassen Variablen vom Typ ChartData können mit der Prozedur Chart.ChartData festgelegt werden

Activate

Aktiviert das erste Fenster der Arbeitsmappe, die mit dem Diagramm verknüpft ist.

Wenn das Diagramm mit einer Microsoft Excel Arbeitsmappe verknüpft ist, werden von dieser Methode keine Auto_Activate-oder Auto_Deactivate-Makros ausgeführt, die möglicherweise an die Arbeitsmappe angefügt sind (verwenden Sie die RunAutoMacros -Methode zum Ausführen dieser Makros).

ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Activate

ActivateChartDataWindow

Öffnet ein Excel-Datenraster Fenster, das die vollständigen Quelldaten für das angegebene Diagramm enthält.

Wenn das Datenraster Fenster bereits geöffnet ist, hat diese Methode keine Auswirkung. Die ActivateChartDataWindow -Methode unterscheidet sich von der ChartData. Activate -Methode darin, dass die erste das Diagramm in einem Excel-Fenster in Word öffnet, wobei das Menüband Excel nicht verfügbar ist, während letztere eine Vollversion von Excel öffnet, wobei das Menüband verfügbar ist.

ActiveWindow.RangeFromPoint.Chart.ChartData.ActivateChartDataWindow

BreakLink

Hebt die Verknüpfung zwischen den Daten für ein Diagramm und einer Microsoft Excel-Arbeitsmappe auf.

Durch Aufrufen dieser Methode wird die IsLinked-Eigenschaft des ChartData -Objekts auf falsefestgelegt.

ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.BreakLink

IsLinked

True, Wenn die Daten für das Diagramm mit einer externen Microsoft Excel-Arbeitsmappe verknüpft ist. Schreibgeschützter boolescher Wert.

Wenn Sie die BreakLink -Methode verwenden, um den Link zu einer Excel-Arbeitsmappe zu entfernen, wird diese Eigenschaft auf falsefestgelegt.

Dim booIsLinked As Boolean
booIsLinked = ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.IsLinked

Workbook

Gibt die Arbeitsmappe, die die Daten mit dem Diagramm verknüpft ist.

Dim wbWorkbook As Workbook
wbWorkbook = ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Workbook