BorderArtFormat-Objekt (Publisher)
Stellt die Formatierung des Zierrahmens dar, der auf die angegebene Form angewendet wird.
Hinweise
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.