Application.GlobalBaseCalendars 属性 (Project)

获取或设置一个表示 Global.mpt 文件的基准日历的 日历 集合。 读/写 的日历 。

语法

expression。 GlobalBaseCalendars

expression：表示 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。