CalendarView.CalendarViewMode Property (Outlook)
Published: July 16, 2012
The following Visual Basic for Applications (VBA) example configures the current CalendarView object to show a single day, using an 8-point Verdana font to display items and a 16-point Verdana font to display time values and the Tasks header within the view.
Sub ConfigureDayViewFonts() Dim objView As CalendarView ' Check if the current view is a calendar view. If Application.ActiveExplorer.CurrentView.ViewType = _ olCalendarView Then ' Obtain a CalendarView object reference for the ' current calendar view. Set objView = _ Application.ActiveExplorer.CurrentView With objView ' Set the calendar view to show a ' single day. .CalendarViewMode = olCalendarViewDay ' Set the DayWeekFont to 8-point Verdana. .DayWeekFont.Name = "Verdana" .DayWeekFont.Size = 8 ' Set the DayWeekTimeFont to 16-point Verdana. .DayWeekTimeFont.Name = "Verdana" .DayWeekTimeFont.Size = 16 ' Save the calendar view. .Save End With End If End Sub