Returns a FontNames object that includes the names of all the available landscape fonts.
Syntax
expression.LandscapeFontNames
expression Required. A variable that represents a Global object.
Example
This example creates a sorted list in a new document of the landscape font names in the FontNames object.
Visual Basic for Applications
Sub ListLandscapeFonts()
Dim docNew As Document
Dim intCount As Integer
Set docNew = Documents.Add
docNew.Content.InsertAfter "Landscape Fonts" & vbLf
For intCount = 1 To <strong class="bterm">LandscapeFontNames</strong>.Count
docNew.Content.InsertAfter <strong class="bterm">LandscapeFontNames</strong>(intCount) _
& vbLf
Next
With docNew
.Range(Start:=.Paragraphs(2).Range.Start, End:=.Paragraphs _
(docNew.Paragraphs.Count).Range.End).Select
End With
Selection.Sort