Cell.Diagonal, propriété (Publisher)

Définit ou renvoie une constante PbCellDiagonalType qui représente une cellule divisée en diagonale. Lecture-écriture.

Syntaxe

expression. Diagonal

expression Variable qui représente un objet Cell .

Valeur renvoyée

PbCellDiagonalType

Remarques

La valeur de la propriété Diagonal peut être l’une des constantes PbCellDiagonalType déclarées dans la bibliothèque de type Microsoft Publisher.

Exemple

Cet exemple ajoute une page à la composition active, crée un tableau sur cette nouvelle page, puis fractionne en diagonale toutes les cellules des colonnes paires.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.