Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Cambia el color de fondo y el patrón de fondo de los cuadros de fecha en la vista Calendario.
Sintaxis
expresión.
CalendarDateShadingEdit( _Item_, _Pattern_, _Color_ )
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Item | Obligatorio | Long | Tipo de día del calendario que se va a cambiar. Puede ser una de las constantes de PjCalendarShading. |
| Pattern | Opcional | Long | El modelo para el tipo de cuadro de fecha especificado por Item. Puede ser una de las constantes PjFillPattern. |
| Color | Opcional | Long | El color para el tipo de cuadro de fecha especificado por Item. Puede ser una de las constantes de PjColor. |
Valor devuelto
Boolean
Comentarios
Además de Item, CalendarDateShadingEdit requiere el parámetro Pattern o Color (o ambos) para ejecutarse sin error. Por ejemplo, la siguiente línea en el panel inmediato de VBE funciona correctamente.
? CalendarDateShadingEdit (PjCalendarShading.pjBaseWorking, , &H01dddd)
Para editar cuadros de fecha del calendario en los que los colores pueden ser valores RGB, use el método CalendarDateShadingEditEx.
Ejemplo
En el ejemplo siguiente se cambia el color de fondo de los días laborables en el calendario base a un color púrpura estipulado y el color de los días no laborables a gris.
Sub CalendarDate_ShadingEdit()
' Activate the Caldender view.
ViewApply Name:="Calendar"
CalendarDateShadingEdit Item:=pjBaseWorking, Pattern:=pjLightFillPattern, Color:=pjPurple
CalendarDateShadingEdit Item:=pjBaseNonworking, Color:=pjGray
End Sub
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.