Propriété Table.TableDirection (Publisher)

Renvoie ou définit une constante PbTableDirectionType qui indique si le texte d’un tableau est lu de gauche à droite ou de droite à gauche. Lecture-écriture.

Syntaxe

expression. TableDirection

expression Variable qui représente un objet Table .

Valeur renvoyée

PbTableDirectionType

Remarques

La valeur de la propriété TableDirection peut être l’une des constantes PbTableDirectionType déclarées dans la bibliothèque de types Microsoft Publisher : pbTableDirectionLeftToRight ou pbTableDirectionRightToLeft.

Exemple

Cet exemple insère un numéro en gras dans chaque cellule du tableau spécifié, puis il définit le sens du tableau de façon à ce que les cellules soient numérotées de droite à gauche. Pour que cet exemple fonctionne, la forme spécifiée doit être un tableau.

Sub CountCellsByColumn() 
 Dim tblTable As Table 
 Dim rowTable As row 
 Dim celTable As Cell 
 Dim intCount As Integer 
 
 Set tblTable = ActiveDocument.Pages(1).Shapes(1).Table 
 
 'Loops through each row in the table 
 For Each rowTable In tblTable.Rows 
 
 'Loops through each cell in the row 
 For Each celTable In rowTable.Cells 
 With celTable.TextRange 
 intCount = intCount + 1 
 .Text = intCount 
 .ParagraphFormat.Alignment = _ 
 pbParagraphAlignmentCenter 
 .Font.Bold = msoTrue 
 End With 
 Next celTable 
 Next rowTable 
 tblTable.TableDirection = pbTableDirectionRightToLeft 
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.