Partager via

Objet Columns (Publisher)

Une collection de colonne objets qui représentent les colonnes d'une table.

Remarques

Utilisez les colonnes propriété de la Table objet pour renvoyer la collection de colonnes.

Utilisez Columns (index), où index est le numéro d’index, pour renvoyer un seul objet Column . Le numéro d'index représente la position de la colonne dans la collection Columns (en partant de la gauche).

Utilisez Ajouter méthode pour ajouter une colonne à un tableau.

Exemple

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

Sub CountColumns() 
 MsgBox "The number of columns in the table is " & _ 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns.Count 
End Sub

Cet exemple place un numéro en gras dans chaque cellule du tableau spécifié. Il suppose que la forme spécifiée est un tableau et non un autre type de forme.

Sub CountCellsByColumn() 
 Dim shpTable As Shape 
 Dim colTable As Column 
 Dim celTable As Cell 
 Dim intCount As Integer 
 
 intCount = 1 
 
 Set shpTable = ActiveDocument.Pages(2).Shapes(1) 
 For Each colTable In shpTable.Table.Columns 
 For Each celTable In colTable.Cells 
 With celTable.Text 
 .Text = intCount 
 .ParagraphFormat.Alignment = _ 
 pbParagraphAlignmentCenter 
 .Font.Bold = msoTrue 
 intCount = intCount + 1 
 End With 
 Next celTable 
 Next colTable 
 
End Sub

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

Sub SelectColumns() 
 ActiveDocument.Pages(2).Shapes(1).Table.Columns(3).Cells.Select 
End Sub

Cet exemple ajoute une colonne à 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 NewColumn() 
 Dim colNew As Column 
 
 Set colNew = ActiveDocument.Pages(2).Shapes(1).Table.Columns _ 
 .Add(BeforeColumn:=3) 
 With colNew 
 .Width = 2 
 .Cells.Merge 
 .Cells(1).Fill.ForeColor.RGB = RGB(Red:=202, Green:=202, Blue:=202) 
 End With 
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.

  • Last updated on