Label Property Example

This example sets the text for the label of the first child node. The label shows the placement of the node in Navigation view.

Private Sub AddLabelToNavigationNode()
Dim myNode As NavigationNode

Set myNode = ActiveWeb.HomeNavigationNode.Children(0)

myNewNode.Label = “Finance Page”
End Sub

This example retrieves the name of a theme.

Note   To run this procedure, you must have an open web with a page that has previously had a theme applied to it.

Private Sub GetThemeName()
Dim myTheme As String

myTheme = ActiveWeb.Themes(0).Label
End Sub