Objet Columns (PowerPoint)

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

Exemple

Utilisez la propriété Columns pour renvoyer la collection Columns. Cet exemple montre comment rechercher le premier tableau de la présentation active, compter le nombre d’objets Column dans la collection Columns et afficher les informations pour l’utilisateur.

Dim ColCount, sl, sh As Integer

With ActivePresentation
    For sl = 1 To .Slides.Count
        For sh = 1 To .Slides(sl).Shapes.Count
            If .Slides(sl).Shapes(sh).HasTable Then
                ColCount = .Slides(sl).Shapes(sh) _
                    .Table.Columns.Count
                MsgBox "Shape " & sh & " on slide " & sl & _
                    " contains the first table and has " & _
                    ColCount & " columns."
                Exit Sub
            End If
        Next
    Next
End With

Utilisez la méthode Addpour ajouter une colonne à une table. Cet exemple montre comment créer une colonne dans un tableau existant et fixer la largeur de la nouvelle colonne à 72 points (environ 2,5 centimètres).

With ActivePresentation.Slides(2).Shapes(5).Table

    .Columns.Add.Width = 72

End With

Utilisez Columns (index) pour renvoyer un seul objet Column . Index représente la position de la colonne dans la collection Columns (généralement en comptant de gauche à droite; bien que la propriété TableDirectionpuisse inverser cela). Cet exemple montre comment sélectionner la première colonne du tableau figurant dans la cinquième forme de la deuxième diapositive.

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

Voir aussi

Référence du modèle objet PowerPoint

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.