Clase Action (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.

Set

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)

Los siguientes procedimientos se pueden usar para establecer variables de clase Action : Actions.Item, PivotCell.ServerActions, PivotValueCell.ServerActions y Range.ServerActions

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

Parent

Devuelve el objeto primario del objeto especificado.

Type

Devuelve el tipo de acción.

Valores posibles 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

Actions.Count

Devuelve el número de objetos de la colección.

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

Actions.Item

Devuelve un objeto Actions que representa una colección de acciones en un libro.

Sintaxis : expression.Item (Index)

Index: Valor de índice de la acción.

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

Actions.Parent

Devuelve el objeto primario del objeto especificado.