Propriedade Application.GlobalBaseCalendars (Project)

Obtém ou define uma coleção Calendars que representa os calendários base do arquivo Global.mpt. Calendários de leitura/gravação.

Sintaxe

expression. GlobalBaseCalendars

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

Comentários

Para adicionar um calendário ao modelo global da empresa, crie primeiro um calendário local e, em seguida, adicione o calendário local ao modelo global da empresa com o método MakeLocalCalendarEnterprise.

Para habilitar a criação de calendários base locais em um projeto da empresa, marque Permitir que os projetos usem calendários base locais na página Configurações Adicionais do Servidor do Project Web App.

Exemplo

O exemplo a seguir cria um calendário base local e, em seguida, importa o calendário para o modelo global da empresa.

Observação

[!OBSERVAçãO] A propriedade GlobalBaseCalendars é a coleção de calendários do arquivo local Global.mpt, e não é o modelo global da empresa.

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

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.