VoltageColors

<< Clique para Mostrar o Sumário >>

 

VoltageColors

Coleção Esta propriedade retorna um objeto que permite configurar as Cores dos níveis das Tensões por script. As Cores dos níveis das Tensões estão disponíveis na aba Tensões do objeto Configuração do Power. Para utilizar o objeto retornado por esta propriedade em tempo de execução é preciso desativar o objeto Configuração do Power antes de modificar suas propriedades, conforme o exemplo a seguir.

Set cp = Application.GetObject("ConfiguracaoPower")
Set vc = cp.VoltageColors
cp.Deactivate
'Adiciona três novas tensões bases
Set v1 = vc.AddVoltage(593)
vc.AddVoltage 594, RGB(254, 128, 96)
vc.AddVoltage 595, RGB(254, 128, 96), False, RGB(1, 2, 3)
'Remove duas tensões bases recém-criadas
vc.DeleteVoltage 593
vc.DeleteVoltage 595
'Percorre e modifica as tensões bases existentes
For Each v In vc
  If v.NominalVoltage <> 0 Then v.NominalVoltage = i * 50.0
  v.ColorEnergized = RGB(i * 31, i * 16, 32)
  v.FollowEnergized = False
  v.ColorDeEnergized = RGB(128, 0, i * 16)
  i = i + 1
Next
cp.Activate

 

NOTA

Consulte o tópico Cores de Tensões para mais informações sobre as propriedades do objeto retornado por esta propriedade.

Esta página foi útil?