ViewFont Object

Article
06/14/2014

Outlook Developer Reference

Represents the font used when formatting text in various portions of a view.

Version Information
Version Added: Outlook 2007

Remarks

The ViewFont object is used by the following objects to represent font formatting information applied to the text in various portions of a view:

The HeadingsFont property of the BusinessCardView object.
The DayWeekFont, DayWeekTimeFont, and MonthFont properties of the CalendarView object.
The BodyFont and HeadingsFont properties of the CardView object.
The AutoPreviewFont, ColumnFont, and RowFont properties of the TableView object.
The ItemFont, LowerScaleFont, and UpperScaleFont properties of the TimelineView object.

Example

The following Visual Basic for Applications (VBA) sample increments the value of the Size property for the ViewFont object returned from the ItemFont property for the current TimelineView object.

Visual Basic for Applications

Visual Basic for Applications
Private Sub IncreaseItemFontSize() Dim objTimelineView As TimelineView If Application.ActiveExplorer.CurrentView.ViewType = _ olTimelineView Then ' Obtain a TimelineView object reference for the ' current timeline view. Set objTimelineView = _ Application.ActiveExplorer.CurrentView ' Increment the Size property of the ' ViewFont object obtained from the ' ItemFont property, but only ' if the font is less than 24 points ' in size. If objTimelineView.ItemFont.Size < 24 Then objTimelineView.ItemFont.Size = _ objTimelineView.ItemFont.Size + 1 ' Save the timeline view. objTimelineView.Save End If End If End Sub

  Private Sub IncreaseItemFontSize()
    Dim objTimelineView As TimelineView
    
    If Application.ActiveExplorer.CurrentView.ViewType = _
        olTimelineView Then
        
        ' Obtain a TimelineView object reference for the
        ' current timeline view.
        Set objTimelineView = _
            Application.ActiveExplorer.CurrentView
        
        ' Increment the Size property of the
        ' ViewFont object obtained from the
        ' ItemFont property, but only
        ' if the font is less than 24 points
        ' in size.
        If objTimelineView.ItemFont.Size < 24 Then
            objTimelineView.ItemFont.Size = _
                objTimelineView.ItemFont.Size + 1
            
            ' Save the timeline view.
            objTimelineView.Save
        End If
    End If
End Sub

ViewFont Object

Additional resources