Application.CalendarDateShadingEdit 方法 (Project)

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

语法

expression。 CalendarDateShadingEdit( _Item_, _Pattern_, _Color_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Item	必需	Long	要更改的日历日期的类型。 可以是 PjCalendarShading 常量之一。
Pattern	可选	Long	指定的 项 的日期框的类型模式。 可以是 PjFillPattern 常量之一。
Color	可选	Long	指定的 项 的日期框的类型颜色。 可以是 PjColor 常量之一。

返回值

Boolean

说明

除 Item 以外，CalendarDateShadingEdit 还要求使用 Pattern 或 Color 参数（或同时使用这两个参数），才能在运行时不发生错误。 例如，下面一行在 VBE 立即窗格中可以正常工作。

? CalendarDateShadingEdit (PjCalendarShading.pjBaseWorking, , &H01dddd)

若要编辑颜色可以是 RGB 值的日历日期框，请使用 CalendarDateShadingEditEx 方法。

示例

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

Sub CalendarDate_ShadingEdit() 
 ' Activate the Caldender view. 
 ViewApply Name:="Calendar" 
 
 CalendarDateShadingEdit Item:=pjBaseWorking, Pattern:=pjLightFillPattern, Color:=pjPurple 
 CalendarDateShadingEdit Item:=pjBaseNonworking, Color:=pjGray 
End Sub

支持和反馈

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