Share via

BorderArtFormat-Objekt (Publisher)

  • Artikel

Stellt die Formatierung des Zierrahmens dar, der auf die angegebene Form angewendet wird.

HinwBemerkungeneise

Bei Zierrahmen handelt es sich um Bildränder, die auf Textfelder, Grafikrahmen oder Rechtecke angewendet werden können.

Verwenden Sie die BorderArt -Eigenschaft einer Form um ein BorderArtFormat -Objekt zurückzugeben.

Verwenden Sie die Set -Methode, um anzugeben, welcher Typ von Zierrahmen auf eine Grafik angewendet werden soll.

Sie können auch die Name -Eigenschaft verwenden, um anzugeben, welcher Typ von soll Zierrahmen auf eine Grafik angewendet.

Hinweis

Da Name die Standardeigenschaft der BorderArt - und BorderArtFormat-Objekte ist, müssen Sie sie beim Festlegen des BorderArt-Typs nicht explizit angeben. Die -Anweisung Shape.BorderArtFormat = Document.BorderArts(1) entspricht Shape.BorderArtFormat.Name = Document.BorderArts(1).Name.

Verwenden Sie die Delete -Methode, um einen Zierrahmen von einer Grafik zu entfernen.

Beispiel

Das folgende Beispiel gibt den Zierrahmen der ersten Form auf der ersten Seite der aktiven Publikation zurück und zeigt den Namen des Zierrahmens in einem Meldungsfeld an.

Dim bdaTemp As BorderArtFormat 
 
Set bdaTemp = ActiveDocument.Pages(1).Shapes(1).BorderArt 
MsgBox "BorderArt name is: " &bdaTemp.Name

Das folgende Beispiel prüft das Vorhandensein von Zierrahmen für jede Form auf jeder Seite des aktiven Dokuments. Jeder gefundene Zierrahmen wird auf den gleichen Typ festgelegt.

Sub SetBorderArt() 
Dim anyPage As Page 
Dim anyShape As Shape 
Dim strBorderArtName As String 
 
strBorderArtName = Document.BorderArts(1).Name 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Set(strBorderArtName) 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

Im folgenden Beispiel werden alle BorderArt-Objekte in einem Dokument mithilfe der Name-Eigenschaft auf denselben Typ festgelegt.

Sub SetBorderArtByName() 
Dim anyPage As Page 
Dim anyShape As Shape 
Dim strBorderArtName As String 
 
strBorderArtName = Document.BorderArts(1).Name 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Name = strBorderArtName 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

Im folgenden Beispiel wird das Vorhandensein eines Zierrahmens auf jeder Form für jede Seite des aktiven Dokuments geprüft. Wenn ein Zierrahmen vorhanden ist, wird dieser gelöscht.

Sub DeleteBorderArt() 
Dim anyPage As Page 
Dim anyShape As Shape 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Delete 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

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.