CalendarView.DayWeekTimeFont Property (Outlook)
Returns a ViewFont object that represents the font used when displaying the hour portion of the time headers in a specified day for the CalendarView object. Read-only.
Version Information
Version Added: Outlook 2007
Syntax
expression .DayWeekTimeFont
expression A variable that represents a CalendarView object.
Remarks
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.
Note
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.
Example
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