Propriedade ApplicationSettings.DrawingBackgroundColorGradient (Visio)
Determina a cor do gradiente do plano de fundo da janela de desenho do Microsoft Visio. Leitura/gravação.
Sintaxe
expressão. DrawingBackgroundColorGradient
Expressão Uma variável que representa um objeto ApplicationSettings .
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, o janela Propriedades 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 |
A configuração da propriedade BackgroundColorGradient da janela ativa com outro valor que não o padrão (-1) substituirá a configuração de DrawingBackgroundColorGradient dessa janela. Para poder redefinir a cor do gradiente em segundo plano da mesma janela ativa definindo a propriedade DrawingBackgroundColorGradient , você deve redefinir BackgroundColorGradient para seu valor padrão, -1. Se várias janelas estiverem abertas, a configuração de BackgroundColorGradient para uma janela não afetará a configuração das outras janelas abertas.
Observação
Você pode especificar duas cores para o plano de fundo do desenho. Se a resolução da tela do usuário for adequada, uma das cores se misturará progressivamente à outra, formando um gradiente da parte de cima até a parte de baixo da tela. Esse recurso só estará disponível se o usuário ajustar o seu monitor para exibir cores de 32 bits. A capacidade de definir programaticamente a cor do plano de fundo do desenho é restrita quando o usuário está operando em modo de alto contraste.
Exemplo
A macro VBA a seguir mostra como usar a propriedade DrawingBackgroundColorGradient para obter e definir a cor do gradiente do plano de fundo do aplicativo. Ele também mostra como obter um objeto ApplicationSettings do objeto Aplicativo Visio e demonstra a relação entre a propriedade DrawingBackgroundColorGradient e a propriedade Window.BackgroundColorGradient . Este exemplo pressupõe que há uma janela de desenho 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 DrawingBackgroundColorGradient_Example()
Dim vsoApplicationSettings As Visio.ApplicationSettings
Set vsoApplicationSettings = Visio.Application.Settings
'Get the current application background gradient color.
Debug.Print vsoApplicationSettings.DrawingBackgroundColorGradient
'Get the active window background color gradient.
Debug.Print ActiveWindow.BackgroundColorGradient
'Change the application background gradient color.
'This also changes the active 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.