Propriedade Window.BackgroundColorGradient (Visio)
Determina a cor do gradiente do plano de fundo da janela de desenho ativa do Microsoft Visio e das respectivas janelas associadas de visualização de impressão e exibição em tela inteira. Leitura/gravação.
Sintaxe
expression. BackgroundColorGradient
Expressão Uma variável que representa um objeto Window .
Valor de retorno
OLE_COLOR
Comentários
Os valores válidos para uma propriedade OLE_COLOR do Visio pode ser um dos valores a seguir:
&H00 bbggrr, onde bb é o valor azul entre 0 e 0xFF (255), gg o valor verde e rr o valor vermelho.
&H800000 xx , em que xx é um índice GetSysColor válido.
Para obter detalhes sobre a função GetSysColor , pesquise por " GetSysColor " no SDK da Plataforma Microsoft no MSDN.
O tipo de dados OLE_COLOR é usado para propriedades que retornam cores. Quando uma propriedade é declarada como OLE_COLOR, a janela Propriedadesno editor do Editor do Visual Basic exibe uma caixa de diálogo seletor de cores que permite que o usuário selecione a cor da propriedade visualmente, em vez de ter que lembrar o equivalente numérico.
Além disso, você pode usar as seguintes constantes de cores do Microsoft Visual Basic for Applications (VBA) para OLE_COLOR.
Constant | Valor | Descrição |
---|---|---|
vbBlack | 0x0 | Preto |
vbRed | 0xff | Vermelho |
vbGreen | 0xFF00 | Verde |
vbYellow | 0xffff | Amarelo |
vbBlue | 0xFF0000 | Azul |
vbMagenta | 0xFF00FF | Magenta |
vbCyan | 0xFFFF00 | Ciano |
vbWhite | 0xFFFFFF | Branco |
Para uma janela de desenho, imprimir janela de visualização ou janela de exibição de tela inteira, definir a propriedade BackgroundColorGradient da janela como um valor diferente do padrão (-1) substitui a configuração ApplicationSettings.DrawingBackgroundColorGradient para esse conjunto de janelas. Para poder redefinir essa propriedade para o mesmo conjunto de janelas, você deve redefinir BackgroundColorGradient para seu valor padrão, -1. Se vários desenhos estiverem abertos, definir BackgroundColorGradient para um conjunto de janelas não terá efeito na configuração de outros conjuntos de janelas abertas.
No entanto, para uma janela ShapeSheet, definir a propriedade BackgroundColorGradient da janela como um valor diferente do padrão não tem efeito, seja na cor de fundo da janela ShapeSheet ou em qualquer uma das outras configurações de janela.
Exemplo
A seguinte macro VBA mostra como utilizar a propriedade BackgroundColorGradient para obter e definir a cor gradiente do plano de fundo da janela de desenho ativa. Ele também mostra como obter um objeto ApplicationSettings do objeto Aplicativo Visio e demonstra a relação entre a propriedade BackgroundColorGradient e a propriedade ApplicationSettings.DrawingBackgroundColorGradient . Este exemplo pressupõe que há uma janela de desenho ativa aberta no Visio e que, inicialmente, todas as propriedades de cor de gradiente em segundo plano estão definidas como seus valores padrão.
Public Sub BackgroundColorGradient_Example()
Dim vsoApplicationSettings As Visio.ApplicationSettings
Set vsoApplicationSettings = Visio.Application.Settings
'Get the current application background gradient color.
Debug.Print vsoApplicationSettings.DrawingBackgroundColorGradient
'Get the current window background color gradient.
Debug.Print ActiveWindow.BackgroundColorGradient
'Change the application background gradient color.
'This also changes the current window color as
'well as the setting in the Color Settings dialog box.
vsoApplicationSettings.DrawingBackgroundColor = vbRed
'Change the active window background gradient color.
ActiveWindow.BackgroundColorGradient = vbMagenta
'Change the application background gradient color again.
'This time, there is no change in the current
'window color, but the dialog box setting changes.
vsoApplicationSettings.DrawingBackgroundColorGradient = vbYellow
'Reset Window.BackgroundColorGradient to its default value.
ActiveWindow.BackgroundColorGradient = -1
'Change the application background gradient color again.
'Now both the active window color
'and the dialog box setting change.
vsoApplicationSettings.DrawingBackgroundColorGradient = vbBlue
End Sub
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.