Cell.Diagonal-Eigenschaft (Publisher)

Artikel
10/16/2024

Legt fest oder gibt eine PbCellDiagonalType-Konstante zurück, die eine diagonal geteilte Zelle darstellt. Lese-/Schreibzugriff.

Syntax

Ausdruck. Diagonale

Ausdruck Eine Variable, die ein Cell-Objekt darstellt.

Rückgabewert

PbCellDiagonalType

Hinweise

Der Wert der Diagonal-Eigenschaft kann eine der in der Microsoft Publisher-Typbibliothek deklarierten PbCellDiagonalType-Konstanten sein.

Beispiel

Bei diesem Beispiel wird der aktiven Publikation eine Seite hinzugefügt, eine Tabelle auf der neuen Seite erstellt, und alle Zellen werden diagonal in gerade nummerierte Spalten aufgeteilt.

Sub CreateNewTable() 
 
 Dim pgeNew As Page 
 Dim shpTable As Shape 
 Dim tblNew As Table 
 Dim celTable As Cell 
 Dim rowTable As Row 
 
 'Creates a new document with a five-row by five-column table 
 Set pgeNew = ActiveDocument.Pages.Add(Count:=1, After:=1) 
 Set shpTable = pgeNew.Shapes.AddTable(NumRows:=5, NumColumns:=5, _ 
 Left:=72, Top:=72, Width:=468, Height:=100) 
 Set tblNew = shpTable.Table 
 
 'Inserts a diagonal split into all cells in even-numbered columns 
 For Each rowTable In tblNew.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Column Mod 2 = 0 Then 
 celTable.Diagonal = pbTableCellDiagonalUp 
 End If 
 Next celTable 
 Next rowTable 
 
End Sub

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.

Freigeben über