Lire en anglais

Partager via


Objet Rows (Publisher)

Une collection de ligne objets qui représentent les lignes d'une table.

Remarques

Utiliser les lignes propriété de la Table objet pour renvoyer la collection de lignes.

Utilisez Rows (index), où index est le numéro d’index, 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).

Exemple

L'exemple suivant affiche le nombre d'objets Row dans la collection Rows pour le premier tableau du document actif.

Sub CountRows() 
 MsgBox ActiveDocument.Pages(2).Shapes(1).Table.Rows.Count 
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

L'exemple suivant montre comment sélectionne la troisième ligne de la table spécifiée.

Sub SelectRows() 
 ActiveDocument.Pages(2).Shapes(1).Table.Rows(3).Cells.Select 
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.