Application.MakeLocalCalendarEnterprise 方法 (Project)

将本地日历转换为企业日历。

语法

expression. MakeLocalCalendarEnterprise( _OldName_, _NewName_ )

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
OldName	可选	字符串	本地日历的名称。
NewName	可选	字符串	企业日历的名称。

返回值

Boolean

说明

NewName 参数未使用。 例如，如果本地日历名为"TestCal"，并且执行了代码 MakeLocalCalendarEnterprise OldName:="TestCal", NewName:="New TestCal"，则会将本地日历转换为名为"TestCal"的企业日历。

若要在 Project Professional 登录至 Project Server 时创建一个本地日历，必须在 Project Web Access 的"其他服务器设置"页面中选中 "允许项目使用本地基准日历"。 更改 Project Web Access 中的设置后，请重新启动 Project Professional。

示例

以下示例会创建一个名为 TestCal 的本地日历，然后将其另存为具有同一名称的企业日历。 如果 Project Professional 尚未登录至 Project Server，则执行 MakeLocalCalendarEnterprise 会产生运行时错误 1100。

Sub TestCalendar() 
 BaseCalendarCreate Name:="TestCal" 
 MakeLocalCalendarEnterprise OldName:="TestCal" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。