Propriedade ApplicationSettings.DrawingBackgroundColor (Visio)

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

Sintaxe

expressão. 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 , procure " 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 apresenta uma caixa de diálogo de seletor de cores que permite ao utilizador selecionar a cor da propriedade visualmente, em vez de ter de 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 para um valor diferente da predefinição (-1) substitui a definiçã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. Também mostra como obter um objeto ApplicationSettings a partir do objeto Aplicação do Visio e demonstra a relação entre a propriedade DrawingBackgroundColor e a propriedade Window.BackgroundColor . Este exemplo pressupõe que existe uma janela de desenho aberta no Visio e que inicialmente todas as propriedades de cor de fundo estão definidas para os respetivos valores predefinidos.

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.