Klasse Action (Excel VBA)

Die Klasse Action stellt eine Aktion dar, die in einem PivotTable-oder Blatt Daten ausgeführt werden soll.

Set

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

Dim act as Action
Set act = ActiveCell.PivotTable.PivotValueCell.ServerActions(Index:=1)

Die folgenden Prozeduren können zum Festlegen der Action Klassenvariablen verwendet werden : Actions.Item, PivotCell.ServerActions, PivotValueCell.ServerActions und Range.ServerActions

For Each

Hier ist ein Beispiel für die Verarbeitung der Action -Elemente in einer Sammlung

Dim actServerAction As Action
For Each actServerAction In ActiveCell.PivotTable.PivotValueCell.ServerActions
	
Next actServerAction

Caption

Gibt die Beschriftung zurück, die dem Action-Objekt zugewiesen ist.

Dim strCaption As String
strCaption = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Caption

Content

Gibt den Inhalt zurück, der mit dem Action-Objekt verknüpft ist.

Dim strContent As String
strContent = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Content

Coordinate

Gibt die Coordinate-Eigenschaft des Action -Objekts zurück.

Dim strCoordinate As String
strCoordinate = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Coordinate

Execute

Führt die angegebene Aktion aus.

ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Execute

Name

Gibt den Namen des Objekts zurück.

Dim strName As String
strName = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Name

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Type

Gibt den Aktionstyp zurück.

Möglichen Werte sind xlActionTypeDrillthrough - Drillthrough, xlActionTypeReport - Bericht, xlActionTypeRowset - Rowset, xlActionTypeUrl - URL.
Dim xatType As XlActionType
xatType = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Type

Actions.Count

Gibt die Anzahl der Objekte in der Auflistung zurück.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.PivotValueCell.ServerActions.Count

Actions.Item

Gibt ein Actions -Objekt zurück, das eine Auflistung von Aktionen in einer Arbeitsmappe darstellt.

Syntax : expression.Item (Index)

Index: Indexwert der Aktion.

Dim actItem As Action
Set actItem = ActiveCell.PivotTable.PivotValueCell.ServerActions(Index:=1)

Actions.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.