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

Возвращает или задает коллекцию Calendars, представляющую базовые календари файла 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 и обратная связь.