Freigeben über

WebNavigationBarSet-Objekt (Publisher)

  • Artikel

Stellt eine Webnavigationsleiste dar, die für das aktuelle Dokument festgelegt ist. Das WebNavigationBarSet-Objekt ist ein Element der WebNavigationBarSets-Auflistung , die alle Webnavigationsleistensätze im aktuellen Dokument enthält.

Hinweise

Um jeder Seite eines Dokuments die angegebene Webnavigationsleiste hinzuzufügen, verwenden Sie die Parameter Left, Top und Width der AddToEveryPage-Methode , wobei Left die Position des linken Rands der Form, Top die Position des oberen Rands der Form und Breite die Breite der Form darstellt, die die Festgelegte Webnavigationsleiste darstellt.

Verwenden Sie die DeleteSetAndInstances-Methode, um den Satz der Webnavigationsleiste und alle instance aus einem Dokument zu entfernen.

Folgendes betrifft horizontal orientierte Webnavigationsleisten:

  • Verwenden Sie die IsHorizontal-Eigenschaft , um die Ausrichtung des Navigationsleistensatzes zu bestimmen.
  • Verwenden Sie die ChangeOrientation-Methode , um die Ausrichtung des Webnavigationsleistensatzes festzulegen.
  • Wenn die Ausrichtung auf horizontal festgelegt ist, können Sie die Eigenschaften HorizontalAlignment und HorizontalButtonCount festlegen.

Beispiel

Im folgenden Beispiel wird jeder Seite, auf der die AddToEveryPage-Methode beim Hinzufügen der Seite auf True festgelegt ist, oder die WebPageOptions.IncludePageOnNewWebNavigationBars-Eigenschaft auf True festgelegt ist, die erste Webnavigationsleiste hinzugefügt.

Dim objWebNavBarSet as WebNavigationBarSet 
Set objWebNavBarSet = ActiveDocument.WebNavigationBarSets(1) 
objWebNavBarSet.AddToEveryPage Left:=50, Top:=10, Width:=500

Im folgende Beispiel werden alle Instanzen jedes WebNavigationBarSet -Objekts in der WebNavigationBarSets -Auflistung gelöscht.

Dim objWebNavBarSet As WebNavigationBarSet 
For Each objWebNavBarSet In ActiveDocument.WebNavigationBarSets 
 objWebNavBarSet.DeleteSetAndInstances 
Next objWebNavBarSet

Im folgenden Beispiel wird die erste Navigationsleiste in der WebNavigationBarSets-Auflistung des aktiven Dokuments jeder Seite hinzugefügt, auf der die AddToEveryPage-Methode auf True oder die IncludePageOnNewWebNavigationBars-Eigenschaft auf True festgelegt ist, und legt dann die Schaltflächenformatvorlage auf klein fest. Es wird ein Test durchgeführt, um zu bestimmen, ob der Navigationsleistensatz horizontal ist. Wenn sie nicht der Fall ist, die ChangeOrientation -Methode aufgerufen wird und die Ausrichtung wird auf horizontal festgelegt. Nachdem die Navigationsleiste horizontal ausgerichtet ist, wird der Wert der horizontalen Schaltfläche auf 3 festgelegt und die horizontale Ausrichtung der Schaltflächen auf left festgelegt.

Dim objWebNav As WebNavigationBarSet 
Set objWebNav = ActiveDocument.WebNavigationBarSets(1) 
With objWebNav 
 .AddToEveryPage Left:=10, Top:=10 
 If .IsHorizontal = False Then 
 .ChangeOrientation pbNavBarOrientHorizontal 
 End If 
 .HorizontalButtonCount = 3 
 .HorizontalAlignment = pbnbAlignLeft 
End With

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.