CalendarView.DayWeekTimeFont Property (Outlook)
Published: July 16, 2012
The value of this property also represents the font used to display the Tasks header when the CalendarViewMode property of the CalendarView object is set to either olCalendarViewDay, olCalendarViewMultiDay, olCalendarViewWeek, or olCalendarView5DayWeek.
Setting the Size property value of the ViewFont object for this property has no effect, because the font size for the hour portion of the time headers is automatically set by Outlook based on the size of the font specified in the DayWeekFont property of the CalendarView object.
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