Método Application.MakeLocalCalendarEnterprise (Project)

Converte um calendário local em um calendário da empresa.

Sintaxe

expressão. MakeLocalCalendarEnterprise( _OldName_, _NewName_ )

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Oldname	Opcional	String	Nome do calendário local.
Newname	Opcional	String	Nome do calendário enterprise.

Valor de retorno

Boolean

Comentários

O parâmetro NewName não é usado. Por exemplo, se um calendário local for denominado "TestCal" e você executar o código MakeLocalCalendarEnterprise OldName:="TestCal", NewName:="New TestCal", o resultado será um calendário da empresa denominado "TestCal".

Para criar um calendário local quando o Project Professional estiver conectado ao Project Server, marque Permitir que os projetos usem calendários base locais na página Configurações Adicionais do Servidor do Project Web Access. Reinicie o Project Professional depois de alterar a definição no Project Web Access.

Exemplo

O exemplo a seguir cria um calendário local denominado TestCal e, em seguida, o salva como calendário da empresa com o mesmo nome. Se o Project Professional não estiver conectado ao Project Server, MakeLocalCalendarEnterprise resultará em um erro de tempo de execução 1100.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.