返回 NavigationNode 对象的只读 HomeNavigationNode 对象。
本示例搜索标签为“Sale”的导航节点并将其更新。
Private Sub ChangeNavLabel()
    Dim myFiles As WebFiles
    Dim myFile As WebFile
    Set myFiles = ActiveWeb.RootFolder.Files
    For Each myFile In myFiles
        If myFile.NavigationNode.Home.Label = "Sale" Then
            myFile.NavigationNode.Home.Label = "Sales Items"
        End If
    Next
End Sub