Метод Application.CalendarDateBoxes (Project)
Настраивает верхний и нижний диапазоны полей даты в представлении Календарь.
Синтаксис
выражение. CalendarDateBoxes
( _TopLeft_
, _TopRight_
, _BottomLeft_
, _BottomRight_
, _TopColor_
, _BottomColor_
, _TopPattern_
, _BottomPattern_
)
выражение: переменная, представляющая объект Application.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
TopLeft | Необязательный | Long | Формат дат в левом верхнем углу каждого поля даты. Может быть одной из констант PjCalendarDateLabel . |
TopRight | Необязательный | Long | Формат дат в правом верхнем углу каждого поля даты. Может быть одной из констант PjCalendarDateLabel . |
BottomLeft | Необязательный | Long | Формат дат в левом нижнем углу каждого поля даты. Может быть одной из констант PjCalendarDateLabel . |
BottomRight | Необязательный | Long | Формат дат в правом нижнем углу каждого поля даты. Может быть одной из констант PjCalendarDateLabel . |
TopColor | Необязательный | Long | Цвет верхней полосы в каждом поле даты. Может быть одной из констант PjColor . |
BottomColor | Необязательный | Long | Цвет нижней полосы в каждом поле даты. Может быть одной из констант PjColor . |
TopPattern | Необязательный | Long | Узор верхней полосы в каждом поле даты. Может быть одной из констант PjFillPattern . |
BottomPattern | Необязательный | Long | Шаблон нижней полосы в каждом поле даты. Может быть одной из констант PjFillPattern . |
Возвращаемое значение
Boolean
Примечания
При использовании метода CalendarDateBoxes без аргументов отображается диалоговое окно Шкала времени с выбранной вкладкой "Поля даты ".
Чтобы изменить поля дат календаря, где цвета могут быть rgb-значениями, используйте метод CalendarDateBoxesEx .
Пример
В следующем примере в левом верхнем углу отображается день недели (например, четверг), месяц и дата (например, 31 января) в правом верхнем углу, день года и года (например, 70 2012) в левом нижнем углу каждого поля даты в календаре, а также задаются цвета фона верхней и нижней полосы.
Sub FormatCalendarDays()
CalendarDateBoxes Topleft:=pjDay_dddd, TopRight:=pjDay_mmm_dd, _
BottomLeft:=pjCalendarLabelDayOfYear_dd_yyyy, _
TopColor:=PjColor.pjSilver, BottomColor:=PjColor.pjYellow
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.