返回 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