Lire en anglais

Partager via


Objet Row (Publisher)

Représente une ligne dans un tableau. L'objet Row est un membre des lignes collection. La collection Rows contient toutes les lignes d'une table spécifiée.

Remarques

Utilisez Rows (index), où index est le numéro de ligne, pour renvoyer un seul objet Row . Le numéro d'index représente la position de la ligne dans la collection de lignes (en comptant de gauche à droite).

Utilisez la méthode Item de des lignes collection pour renvoyer un objet Row.

Utilisez Ajouter méthode pour ajouter une ligne à une table.

Utilisez la suppression méthode pour supprimer une ligne d'une table.

Exemple

Cet exemple montre comment sélectionner la première ligne de la première forme de la deuxième page de la composition active. Cet exemple suppose que la forme spécifiée est un tableau et non un autre type de forme.

Sub SelectRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(1).Cells.Select 
End Sub

Cet exemple montre comment définir le remplissage de toutes les lignes paires et effacer le remplissage de toutes les lignes impaires de la table spécifiée. Cet exemple suppose que la forme spécifiée est un tableau et non un autre type de forme.

Sub FillCellsByRow() 
 Dim shpTable As Shape 
 Dim rowTable As Row 
 Dim celTable As Cell 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each rowTable In shpTable.Table.Rows 
 For Each celTable In rowTable.Cells 
 If celTable.Row Mod 2 = 0 Then 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=180, Green:=180, Blue:=180) 
 Else 
 celTable.Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=255, Blue:=255) 
 End If 
 Next celTable 
 Next rowTable 
 
End Sub

Cet exemple ajoute une ligne à la table spécifiée dans la deuxième page de la composition active, puis ajuste la largeur, fusionne les cellules et définit la couleur de remplissage. Cet exemple suppose que la première forme est un tableau et non un autre type de forme.

Sub NewRow() 
 Dim rowNew As Row 
 
 Set rowNew = ActiveDocument.Pages(2).Shapes(1).Table.Rows _ 
 .Add(BeforeRow:=3) 
 With rowNew 
 .Height = 2 
 .Cells.Merge 
 .Cells(1).Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=0) 
 End With 
End Sub

Cet exemple supprime la ligne ajoutée dans l’exemple précédent.

Sub DeleteRow() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Delete 
End Sub

Méthodes

Propriétés

Voir aussi

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.