Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Une collection de cellule objets d'une colonne de table ou de la ligne. La collection CellRange représente toutes les cellules dans la ligne ou la colonne spécifiée.
Remarques
Bien que la collection d'objets s'appelle CellRange et qu'elle soit affichée dans l'Explorateur d'objets, ce mot clé n'est pas utilisé dans la programmation du modèle objet Microsoft Publisher. C'est le mot clé Cells qui est utilisé à la place.
Vous ne pouvez pas ajouter ou supprimer des cellules individuelles d’une table Publisher par programme :
- Utilisez la méthode AddTable de la collection Formes pour ajouter un nouveau tableau à une composition.
- Utilisez la méthode Add des collections Colonnes ou Lignes pour ajouter une colonne ou une ligne à un tableau.
- Utilisez la méthode Delete des objets Column ou Row pour supprimer une colonne ou une ligne d’un tableau.
Utilisez la propriété Cells de l’objet Column pour renvoyer la collection CellRange .
Utilisez la propriété Total pour renvoyer le nombre de cellules d’une ligne, d’une colonne, d’un tableau ou d’une sélection.
Exemple
Cet exemple fusionne les cellules de la première colonne du tableau.
Sub MergeCellsInFirstColumn()
With ActiveDocument.Pages(1).Shapes(1).Table
.Cells(StartRow:=1, StartColumn:=1, _
EndRow:=.Rows.Count, EndColumn:=1).Select
End With
Selection.TableCellRange.Merge
End Sub
Cet exemple affiche un message indiquant le nombre de cellules du tableau spécifié.
Sub NumberOfTableCells()
MsgBox ActiveDocument.Pages(1).Shapes(1).Table _
.Cells.Count
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.