Clase Action - acción (Excel VBA)

La clase Action representa una acción que se va a ejecutar en una tabla dinámica o en los datos de una hoja. Para usar una variable de clase Action, primero debe ser instanciado, por ejemplo

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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Action en una colección.

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

Caption

Devuelve el título asignado al objeto Action.

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

Content

Devuelve el contenido asociado con el objeto Action.

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

Coordinate

Devuelve la propiedad de coordenada del objeto Action.

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

Execute

Realiza la acción especificada.

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

Name

Devuelve el nombre del objeto.

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

Type

Devuelve el tipo de acción. Posibles valores de retorno son xlActionTypeDrillthrough - Obtención de detalles, xlActionTypeReport - Informe, xlActionTypeRowset - RowSet, xlActionTypeUrl - Dirección URL.

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