Метод Application.CalendarDateShadingEdit (Project)

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

Синтаксис

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

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Элемент	Обязательный	Long	Тип календарного дня для изменения. Может быть одной из констант PjCalendarShading .
Pattern	Необязательный	Long	Шаблон для типа поля даты, указанного элементом Item. Может быть одной из констант PjFillPattern .
Color	Необязательный	Long	Цвет для типа поля даты, указанного элементом Item. Может быть одной из констант PjColor .

Возвращаемое значение

Boolean

Примечания

Помимо элемента, для выполнения параметра 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 и обратная связь.