Classe Action (Excel VBA)

A classe Action representa uma ação a ser executada em dados de uma tabela dinâmica ou planilha.

Set

Para usar uma variável de classe Action, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Action: Actions.Item, PivotCell.ServerActions, PivotValueCell.ServerActions e Range.ServerActions

For Each

Aqui está um exemplo de processamento dos itens Action em uma coleção.

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

Caption

Retorna a legenda atribuída ao objeto Action. String somente leitura.

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

Content

Retorna o conteúdo associado ao objeto Action. String somente leitura.

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

Coordinate

Retorna a propriedade da coordenada do objeto Action. Somente leitura.

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

Execute

Realiza a ação especificada.

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

Name

Retorna o nome do objeto. Somente leitura cadeia de caracteres.

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

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

Type

Retorna o tipo de ação. Somente leitura XlActionType.

Os valores possíveis são xlActionTypeDrillthrough - Drill-through, xlActionTypeReport - Relatório, xlActionTypeRowset - OPENXML, xlActionTypeUrl - URLURL.
Dim xatType As XlActionType
xatType = ActiveCell.PivotTable.PivotValueCell.ServerActions(1).Type

Actions.Count

Retorna o número de objetos na coleção. Somente leitura Long.

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

Actions.Item

Retorna um objeto Actions que representa uma coleção de ações em uma pasta de trabalho. Somente leitura.

Sintaxe : expression.Item (Index)

Index: Valor de índice da ação.

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

Actions.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.