Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
como consigo acionar a flag e desativar a flag da tabela dinamica pela macro .
Set ch = ActiveDocument.GetSheetObject("CH100")
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
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
Bem isso mesmo ... Só fiz alguns ajustes ao meu código mais o principio esse mesmo .. Valew
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