Opa! Legal?
Ontem enfrentei uma pequena corrida para descobrir como selecionar um objeto que estava dentro de um gráfico do tipo container. Depois de um preve estudo olha só oq saiu:
O gráfico do tipo Container trabalha a partir de abas onde cada aba é um gráfico diferente.
Como não existe função para acessar gráficos dentro de container infelizmente tive que criar uma macro
"Sempre irei adicionar um infelizmente antes de qualquer palavra que me leve a macros! Acho valido as possibilidades que ela nos dá, porém é um recurso que tende a não existir mais"
Dessa forma, escrevi o código abaixo:
sub Selec_Graph_Container
set ContObj = ActiveDocument.GetSheetObject("CT03")
set ContProp= ContObj.GetProperties
ContProp.SingleObjectActiveIndex = 1
ContObj.SetProperties ContProp
end sub
detalhando o significado:
Set a variável ContObj e instancie o objeto do ID CT03 (o gráfico de container)
na seguencia peque as propriedades desse gráfico e set a variável ContProp
então é que vem a novidade:
para se conseguir chamar a aba deve-se setar o método SingleObjectActiveIndex com o valor referente a aba requisitada (começa em 0 e vai até x-1 abas do container)
logo na sequencia set novamente as propriedades do gráfico que estavam em ContProp como propriedade do container ContObj.
Me deixou descontente não haver um método que selecione o gráfico dentro do container por ID, somente consegui acessar via aba. Por favor ser tiverem considerações para melhorar a função, por favor, postem um comentário! :-)
Interessante, não?
Grande Abraço!
Ontem enfrentei uma pequena corrida para descobrir como selecionar um objeto que estava dentro de um gráfico do tipo container. Depois de um preve estudo olha só oq saiu:
O gráfico do tipo Container trabalha a partir de abas onde cada aba é um gráfico diferente.
Como não existe função para acessar gráficos dentro de container infelizmente tive que criar uma macro
"Sempre irei adicionar um infelizmente antes de qualquer palavra que me leve a macros! Acho valido as possibilidades que ela nos dá, porém é um recurso que tende a não existir mais"
Dessa forma, escrevi o código abaixo:
sub Selec_Graph_Container
set ContObj = ActiveDocument.GetSheetObject("CT03")
set ContProp= ContObj.GetProperties
ContProp.SingleObjectActiveIndex = 1
ContObj.SetProperties ContProp
end sub
detalhando o significado:
Set a variável ContObj e instancie o objeto do ID CT03 (o gráfico de container)
na seguencia peque as propriedades desse gráfico e set a variável ContProp
então é que vem a novidade:
para se conseguir chamar a aba deve-se setar o método SingleObjectActiveIndex com o valor referente a aba requisitada (começa em 0 e vai até x-1 abas do container)
logo na sequencia set novamente as propriedades do gráfico que estavam em ContProp como propriedade do container ContObj.
Me deixou descontente não haver um método que selecione o gráfico dentro do container por ID, somente consegui acessar via aba. Por favor ser tiverem considerações para melhorar a função, por favor, postem um comentário! :-)
Interessante, não?
Grande Abraço!
