Propiedad Application.GlobalBaseCalendars (Project)

Obtiene o establece una colección Calendars que representa los calendarios base del archivo Global.mpt. Calendarios de lectura y escritura.

Sintaxis

expresión. GlobalBaseCalendars

expresión Variable que representa un objeto Application.

Comentarios

Para agregar un calendario a la plantilla global de empresa, primero cree un calendario local y, a continuación, agregue el calendario local a la plantilla global de empresa con el método MakeLocalCalendarEnterprise.

Para permitir la creación de calendarios base locales en un proyecto de empresa, haga clic en Permitir que los proyectos usen calendarios base locales en la página de Configuración adicional del servidor en Project Web App.

Ejemplo:

En el siguiente ejemplo se crea un calendario base local y luego se importa el calendario en la plantilla de información global de empresa.

Nota:

[!NOTA] La propiedad GlobalBaseCalendars consiste en la colección de calendarios que se encuentran en el archivo Global.mpt, no en la plantilla de información global de 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.