Application.CalendarDateShadingEditEx 方法 (Project)

更改“日历”视图中日期框的背景颜色和图案。

语法

expression。 CalendarDateShadingEditEx( _Item_, _Pattern_, _Color_ )

表达 返回 Application 对象的表达式。

参数

名称	必需/可选	数据类型	说明
Item	必需	Long	要更改的日历日期的类型。 可以是 PjCalendarShading 常量之一。
Pattern	可选	Long	指定的 项 的日期框的类型模式。 可以是 PjFillPattern 常量之一。
Color	可选	Long	指定的 项 的日期框的类型颜色。 可以是 RGB 颜色的十六进制值，其中红色是最后一个字节。 例如，值 &HFF0000 为蓝色，&H00FFFF 为黄色。

返回值

Boolean

说明

除了 Item 之外，CalendarDateShadingEditEx 还需要 Pattern 或 Color 参数，或同时需要这两个参数，才能在运行时不出错。 例如，VBE 的“即时”窗格中的以下行可以正常运行。

? CalendarDateShadingEditEx (PjCalendarShading.pjBaseWorking, , &H01dddd)

示例

以下示例将基准日历中工作日的背景色更改为淡紫色，将非工作日的颜色更改为浅灰色。

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

注意

如果使用任何 PjColor 枚举常量作为 Color 参数，则颜色将接近黑色。 例如， pjGreen 的值为 9，该值在 CalendarDateBoxesEx 方法中为深红色。 若要仅使用 PjColor 常量表示的 16 种颜色，请使用 CalendarDateShadingEdit 方法。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。