Klasse Action - Aktion (Excel VBA)

Die Klasse Action stellt eine Aktion dar, die in einem PivotTable-oder Blatt Daten ausgeführt werden soll. Um eine Action -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

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

Type

Gibt den Aktionstyp zurück. Mögliche Rückgabewerte sind xlActionTypeDrillthrough - Drillthrough, xlActionTypeReport - Bericht, xlActionTypeRowset - Rowset, xlActionTypeUrl - URL.

Dim xatType As XlActionType
xatType = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Type