Método Application.CalendarDateShadingEdit (Project)

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

Sintaxe

expression. CalendarDateShadingEdit( _Item_, _Pattern_, _Color_ )

expressão Uma variável que representa um Aplicativo objeto.

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 uma das seguintes constantes PjColor:

Valor de retorno

Boolean

Comentários

Além de Item, CalendarDateShadingEdit exige o parâmetro Pattern ou Color, ou ambos, para que sejam executados sem erro. Por exemplo, a seguinte linha no painel imediato do VBE funciona corretamente.

? CalendarDateShadingEdit (PjCalendarShading.pjBaseWorking, , &H01dddd)

Para editar caixas de data do calendário onde as cores podem ser valores RGB, use o método CalendarDateShadingEditEx.

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 trabalhos para cinza.

Sub CalendarDate_ShadingEdit() 
 ' Activate the Caldender view. 
 ViewApply Name:="Calendar" 
 
 CalendarDateShadingEdit Item:=pjBaseWorking, Pattern:=pjLightFillPattern, Color:=pjPurple 
 CalendarDateShadingEdit Item:=pjBaseNonworking, Color:=pjGray 
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.