Format Property Example

This example retrieves the format of the applied theme for the active web.

Private Sub GetThemeFormat()
Dim myFormat As String

myFormat = ActiveWeb.Themes(0).Format
End Sub