Application.CalendarDateBoxesEx 方法 (Project)

自定义“日历”视图中日期框的上下分隔条。

语法

expression。 CalendarDateBoxesEx( _TopLeft_, _TopRight_, _BottomLeft_, _BottomRight_, _TopColor_, _BottomColor_, _TopPattern_, _BottomPattern_ )

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

参数

名称	必需/可选	数据类型	说明
TopLeft	可选	Long	每个日期框左上角的日期的格式。 可为 PjCalendarDateLabel 常量之一。
TopRight	可选	Long	在每个日期框右上角的日期的格式。 可以是 PjCalendarDateLabel 常量之一。
BottomLeft	可选	Long	在每个日期框左下角的日期的格式。 可以是 PjCalendarDateLabel 常量之一。
BottomRight	可选	Long	每个日期框的右下角中的日期格式。 可以是 PjCalendarDateLabel 常量之一。
TopColor	可选	Long	每个日期框顶部的分隔条的颜色。 可以是 RGB 颜色的十六进制值，其中红色是最后一个字节。 例如，值 &HFF0000 为蓝色，&H00FFFF 为黄色。
BottomColor	可选	Long	每个日期框底部的分隔条的颜色。 可以是 RGB 颜色的十六进制值。
TopPattern	可选	Long	每个日期框顶部的分隔条的图案。 可以是 PjFillPattern 常量之一。
BottomPattern	可选	Long	每个日期框底部分隔条的图案。 可以是 PjFillPattern 常量之一。

返回值

Boolean

说明

使用未指定任何参数的 CalendarDateBoxesEx 方法显示 时间刻度对话框中选择 日期框选项卡。

示例

下面的示例将在日历中每个日期框的左上角显示星期几（例如，星期四），在右上角显示月份和日期（例如，1 月 31 日），在左下角显示一年中的第几天以及年份（例如，70 2010），并将顶部分隔条的背景色设置为银色，将底部分隔条的背景色设置为浅黄色。

Sub FormatCalendarDays() 
      CalendarDateBoxesEx Topleft:=pjOverflowIndicator, TopRight:=pjDay_mmm_dd, _ 
        BottomLeft:=pjCalendarLabelDayOfYear_dd_yyyy, _ 
        TopColor:=&HE0E8E8, BottomColor:=&H1E8E8 
End Sub

注意

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

支持和反馈

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