WebNavigationBarSet-Objekt (Publisher)

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

Hinweise

Wenn Sie jeder Seite eines Dokuments die angegebene Webnavigationsleiste hinzufügen möchten, verwenden Sie die Parameter Links, Oben und Breite der AddToEveryPage-Methode , wobei Links die Position des linken Randes des Shapes, Top die Position des oberen Randes des Shapes und Width die Breite des Shapes ist, das den Satz der Webnavigationsleiste darstellt.

Verwenden Sie die DeleteSetAndInstances-Methode, um die festgelegte Webnavigationsleiste und jede Instance davon aus einem Dokument zu entfernen.

Die folgenden betreffen horizontal ausgerichtete Webnavigationsleisten:

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

Beispiel

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

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 dann wird die Schaltflächenart auf klein festgelegt. Es wird ein Test durchgeführt, um festzustellen, ob die festgelegte Navigationsleiste 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.

  • Last updated on