Propriedade ApplicationSettings.DrawingBackgroundColor (Visio)

Determina a cor do plano de fundo da janela de desenho do Microsoft Visio. Leitura/gravação.

Sintaxe

mais simples. DrawingBackgroundColor

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, em que 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 " 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 Propriedades exibe uma caixa de diálogo do seletor de cores que permite ao usuário selecionar a cor visual da propriedade, em vez de precisar se lembrar do equivalente numérico.

Além disso, você pode usar as seguintes constantes de cores do Microsoft Visual Basic for Applications (VBA) para OLE_COLOR.

Definir a propriedade BackgroundColor da janela ativa como um valor diferente do padrão (-1) substitui a configuração DrawingBackgroundColor para essa janela. Para poder redefinir a cor do plano de fundo da mesma janela ativa definindo a propriedade DrawingBackgroundColor, você terá que redefinir BackgroundColor para o seu valor padrão, -1. Se houver várias janelas abertas, a definição de BackgroundColor para uma janela não terá qualquer efeito sobre as outras janelas abertas.

Exemplo

A macro VBA a seguir mostra como usar a propriedade DrawingBackgroundColor para obter e definir a cor do plano de fundo do aplicativo. Ele também mostra como obter um objeto ApplicationSettings do objeto Application do Visio e demonstra a relação entre a propriedade DrawingBackgroundColor e a propriedade Window.BackgroundColor . Este exemplo pressupõe que há uma janela de desenho aberta no Visio e que, inicialmente, todas as propriedades de cor da tela de fundo estão definidas com seus valores padrão.

Public Sub DrawingBackgroundColor_Example() 
 
 Dim vsoApplicationSettings As Visio.ApplicationSettings 
 Set vsoApplicationSettings = Visio.Application.Settings 
 
 'Get the current application background color. 
 Debug.Print vsoApplicationSettings.DrawingBackgroundColor 
 
 'Get the active window background color. 
 Debug.Print ActiveWindow.BackgroundColor 
 
 'Change the application background color. 
 'This will also change the active window color as 
 'well as the setting in the Color Settings dialog box 
 vsoApplicationSettings.DrawingBackgroundColor = vbRed 
 
 'Change the active window background color. 
 ActiveWindow.BackgroundColor = vbMagenta 
 
 'Change the application background color again. 
 'This time, there is no change in the current 
 'window color, but the dialog box setting changes. 
 vsoApplicationSettings.DrawingBackgroundColor = vbYellow 
 
 'Reset Window.BackgroundColor to its default value. 
 ActiveWindow.BackgroundColor = -1 
 
 'Change the application background color again. 
 'Now both the active window color 
 'and the dialog box setting change. 
 vsoApplicationSettings.DrawingBackgroundColor = 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.