April 2006
Beginner
1114 pages
98h 16m
English
defaultweboptions.Fonts
Returns a WebPageFonts collection that represents the fonts Excel uses when saving a web page. Changing the font name or size properties of the returned WebPageFont objects does not seem to have an effect on web pages published from Excel:
Sub WebFonts( )
Dim fnt As WebPageFont
Set fnt = _
Application.DefaultWebOptions.Fonts _
(msoCharacterSetEnglishWesternEuropeanOtherLatinScript)
' Show the current settings.
Debug.Print fnt.FixedWidthFont
Debug.Print fnt.FixedWidthFontSize
Debug.Print fnt.ProportionalFont
Debug.Print fnt.ProportionalFontSize
End SubRead now
Unlock full access