Метод Application.CalendarDateShadingEditEx (Project)

Статья
04/07/2023

Изменяет цвет фона и узор полей даты в представлении календаря.

Синтаксис

выражение. CalendarDateShadingEditEx( _Item_, _Pattern_, _Color_ )

Выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Элемент	Обязательный	Long	Тип календарного дня для изменения. Может быть одной из констант PjCalendarShading .
Pattern	Необязательный	Long	Шаблон для типа поля даты, указанного элементом Item. Может быть одной из констант PjFillPattern .
Color	Необязательный	Long	Цвет для типа поля даты, указанного элементом Item. Может быть шестнадцатеричным значением для цвета 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

Примечание.

Если для параметра Color используется любая из констант перечисления PjColor, цвет будет почти черным. Например, значение pjGreen равно 9, что в методе CalendarDateBoxesEx является очень темно-красным. Чтобы использовать только шестнадцать цветов, доступных с константами PjColor , используйте метод CalendarDateShadingEdit .

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Share via