Свойство Application.GlobalBaseCalendars (Project)

Получает или задает коллекцию календарей , представляющую базовые календари в файле Global.mpt. Чтение и запись календарей.

Синтаксис

выражение. GlobalBaseCalendars

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

Примечания

Чтобы добавить календарь в глобальный шаблон предприятия, сначала создайте локальный календарь, а затем добавьте его в глобальный шаблон предприятия с помощью метода MakeLocalCalendarEnterprise .

Чтобы включить создание локальных базовых календарей в корпоративном проекте, выполните проверку Разрешить проектам использовать локальные базовые календари на странице "Дополнительные параметры сервера" в Project Web App.

Пример

В следующем примере создается локальный базовый календарь, а затем импорт календаря в корпоративный глобальный шаблон.

Примечание.

Свойство GlobalBaseCalendars представляет собой коллекцию календарей в локальном файле Global.mpt, а не в глобальном шаблоне предприятия.

Sub CreateEGlobalCalendar() 
    Dim globalCalendar As Calendar 
 
    BaseCalendarCreate Name:="NewBaseCalendar" 
    MakeLocalCalendarEnterprise OldName:="NewBaseCalendar", NewName:="NewBaseCalendar" 
 
    Debug.Print "Number of calendars in Global.mpt: " & GlobalBaseCalendars.Count 
 
    For Each globalCalendar In GlobalBaseCalendars 
        Debug.Print globalCalendar.Name 
    Next globalCalendar 
End Sub

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

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