Classe Column (PowerPoint VBA)

La classe Column représente une colonne d’un tableau. L'objet Column est membre des colonnes collection. La collection Columns comprend toutes les colonnes d’un tableau.

Set

Pour utiliser une variable de classe Column, elle doit d'abord être instanciée, par exemple

Dim clm as Column
Set clm = ActiveWindow.RangeFromPoint.Table.Columns(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Column : Columns.Item, Columns.Add et Table.Columns

Cells

Renvoie une collection CellRange qui représente les cellules d’une colonne ou d’une ligne de tableau. En lecture seule.

Dim creCells As CellRange
Set creCells = ActivePresentation.Slides(1).Shapes(2).Table.Columns(1).Cells

Delete

Supprime l’objet Column spécifié.

Si vous essayez de supprimer la seule colonne existante d’un tableau, cela donne lieu à une erreur d’exécution.

ActiveWindow.RangeFromPoint.Table.Columns(1).Delete

Parent

Renvoie l’objet parent de l’objet spécifié.

Select

Sélectionne l'objet spécifié.

Si vous essayez d'effectuer une sélection qui n'est pas appropriée pour le mode d'affichage, votre code échoue. Vous pouvez, par exemple, sélectionner une diapositive en mode Trieuse de diapositives, mais pas en mode Diapositive.

ActivePresentation.Slides(1).Shapes(2).Table.Columns(1).Select

Width

Renvoie ou définit la largeur de l’objet spécifié, en points. Lecture-écriture.

ActivePresentation.Slides(1).Shapes(2).Table.Columns(1).Width = 150

Columns.Add

Cette méthode ajoute une colonne à un tableau existant. Renvoie un objet Column qui représente la nouvelle colonne de tableau.

La valeur du paramètre BeforeColumn doit être comprise entre 1 et le nombre de colonnes dans le tableau inclus. La valeur par défaut est -1, ce qui signifie que si vous omettez le paramètre BeforeColumn, la nouvelle colonne est ajoutée en tant que dernière colonne du tableau.

Syntaxe : expression.Add (BeforeColumn)

BeforeColumn: Numéro d’index spécifiant la colonne de tableau avant laquelle la nouvelle colonne sera insérée.

Dim clm As Column
Set clm = ActiveWindow.RangeFromPoint.Table.Columns.Add()

Columns.Count

Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = ActivePresentation.Slides(1).Shapes(2).Table.Columns.Count

Columns.Item

Cette méthode renvoie un seul objet Column de la collection Columns spécifiée.

Syntaxe : expression.Item (Index)

Index: Numéro d’index de l’objet unique Column à renvoyer dans la collection.

Dim clm As Column
Set clm = ActiveWindow.RangeFromPoint.Table.Columns(Index:=1)

Columns.Parent

Renvoie l’objet parent de l’objet spécifié.