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.
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.
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
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.