Objet Rows (Publisher)
Une collection de ligne objets qui représentent les lignes d'une table.
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).
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
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.