Propiedad CalendarView.DaysInMultiDayMode (Outlook)
Devuelve o establece un valor de tipo Long que representa el número de días consecutivos que se muestran en el objeto CalendarView. Lectura y escritura
Sintaxis
expresión. DaysInMultiDayMode
Expresión Variable que representa un objeto CalendarView .
Comentarios
Esta propiedad puede establecerse en un valor entre 2 y 14. Si se establece en un valor menor que 2, su valor cambiará a 2. Si se establece en un valor mayor que 14, su valor cambiará a 14. El valor predeterminado de esta propiedad es 5.
Ejemplo:
El ejemplo siguiente Visual Basic para aplicaciones (VBA) se crea un nuevo objeto CalendarView en la carpeta predeterminada calendario y, a continuación, se configura para que muestre 14 días consecutivos en el modo de varios días, con elementos de Outlook mostrados dentro de una escala de tiempo por hora.
Sub CreateTwoWeekView()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objView As CalendarView
' Obtain Folder object reference to the Calendar default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
' Create a new CalendarView object named "Two Weeks".
Set objView = objFolder.Views.Add("Two Weeks", _
olCalendarView, _
olViewSaveOptionAllFoldersOfType)
' Configure the new CalendarView object.
With objView
' Display the view in multi-day mode.
.CalendarViewMode = olCalendarViewMultiDay
' Display 14 consecutive days in multi-day
' mode.
.DaysInMultiDayMode = 14
' Set the time scale for the view in one-hour
' intervals.
.DayWeekTimeScale = olTimeScale60Minutes
' Save and apply the new CalendarView object.
.Save
.Apply
End With
End Sub
Consulte también
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.