Método Application.CalendarDateShadingEditEx (Project)

Altera a cor de plano de fundo e o padrão de caixas de data na exibição Calendário.

Sintaxe

expression. CalendarDateShadingEditEx( _Item_, _Pattern_, _Color_ )

Expressão Uma expressão que retorna um objeto Application .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Item	Obrigatório	Long	O tipo de dia de calendário a ser alterado. Pode ser uma das constantes PjCalendarShading.
Pattern	Opcional	Long	O padrão para o tipo de caixa de data especificado pelo Item. Pode ser uma das seguintes constantes PjFillPattern.
Color	Opcional	Long	A cor do tipo de caixa de data especificada pelo Item. Pode ser um valor hexadecimal para a cor RGB, onde vermelho é o último byte. Por exemplo, o valor &HFF0000 é azul e &H00FFFF é amarelo.

Valor de retorno

Boolean

Comentários

Além de Item, CalendarDateShadingEditEx requer o parâmetro Pattern ou Color ou ambos para ser executado sem erros. Por exemplo, a linha a seguir do painel Imediato do VBE funciona corretamente.

? CalendarDateShadingEditEx (PjCalendarShading.pjBaseWorking, , &H01dddd)

Exemplo

O exemplo a seguir altera a cor de fundo dos dias úteis no calendário base para um roxo e a cor dos dias não trabalhados para cinza claro.

Sub CalendarDate_ShadingEdit() 
    ' Activate the Caldender view. 
    ViewApply Name:="Calendar" 
 
    CalendarDateShadingEditEx Item:=pjBaseWorking, Pattern:=pjLightFillPattern, Color:=&H900090 
    CalendarDateShadingEditEx Item:=pjBaseNonworking, Color:=&HDDDDDD 
End Sub

Observação

Se você usar qualquer uma das constantes de enumeração PjColor para o parâmetro Color, a cor será quase preta. Por exemplo, o valor de pjGreen é 9, o que, no CalendarDateBoxesEx é um vermelho muito escuro. Para usar somente as dezesseis cores disponíveis para constantes PjColor, use o método CalendarDateShadingEdit.

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.