Usando macro

[#1]

como consigo acionar a flag e desativar a flag da tabela dinamica pela macro .

Set ch = ActiveDocument.GetSheetObject("CH100")

[nicolett_yuri · Accepted solution]

Você acessar a condicional através da estrutura abaixo:

set obj = ActiveDocument.GetSheetObject("CH01")

set objProp = obj.GetProperties

set variable = objProp.Dimensions(0).EnableCondition 'Atributo para a primeira dimensão, podendo ser alterado (1), (2), (3), etc.

variable.Type = 2

variable.Expression = "Aqui vai sua expressão"

obj.SetProperties objProp

[#3]

Bem isso mesmo ... Só fiz alguns ajustes ao meu código mais  o principio esse mesmo .. Valew

[#4]

Sub open_close

Set ch = ActiveDocument.GetSheetObject("CH100")

Set p = ch.GetProperties

set variable = p.Dimensions(0).EnableCondition 'Atributo para a primeira dimensão, podendo ser alterado (1), (2), (3), etc.

variable.Type = 2

rem variable.Expression = "1"

rem  msgBox(variable.Expression)

If variable.Expression = 1  Then

variable.Expression = "0"

Else

  variable.Expression = "1"

End If

ch.SetProperties p

End Sub