Classe Action - ação (Excel VBA)

A classe Action representa uma ação a ser executada em dados de uma tabela dinâmica ou planilha. 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)

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

Type

Retorna o tipo de ação. Somente leitura XlActionType. Os valores de retorno 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