Desativação de múltiplas penas

#1

Bom dia,

Possuo uma aplicação onde existem diversas penas, porém são ativadas/desativadas conforme selecionado via botão. Gostaria de saber se existe uma forma via script para desativar todas de uma vez (sem a necessidade de desativar uma a uma), e depois eu ativo somente a que desejo visualizar. Hoje realizo da seguinte forma:

Item("E3Chart1").Pens.Item("3_HP").Visible = FALSE
Item("E3Chart1").Pens.Item("3A_HP").Visible = FALSE
Item("E3Chart1").Pens.Item("2_HP").Visible = FALSE	
Item("E3Chart1").Pens.Item("1_HP").Visible = TRUE
#2

Olá @diegofaura, bom dia

Uma opção é percorrer as penas presentes no gráfico, pelo visto você deseja que iniciem todas sem visibilidade então foi inserido o script no evento OnStartingRunning do objeto E3Chart em questão, nesse cénario ficaria da seguinte forma:

Dim Pen
	
'Percorre as penas e desativa a visibilidade
For Each Pen in Pens
   pen.Visible = False
Next

Porém utilizando estrutura do script informado na sua pergunta ficaria:

 Dim Pens
 Dim Pen

 'Captura a coleção de penas
 Set Pens = Item("E3Chart1").Pens
 'Percorre as penas e desativa a visibilidade
 For Each Pen in Pens
	pen.Visible = False
 Next
1 Like
#3

Exatamente isso @AfonsoCalado! Obrigado pela ajuda!

1 Like