Propriété Table.Columns (PowerPoint)

Article
04/07/2023

Retourne une collection Columns qui représente toutes les colonnes d’une table. En lecture seule.

Syntaxe

expression. Colonnes

Expression Variable qui représente un objet Table .

Valeur renvoyée

Colonnes

Remarques

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, consultez Renvoi d’un objet à partir d’une collection.

Exemple

Cet exemple montre comment afficher le numéro de la forme, le numéro de la diapositive ainsi que le nombre de colonnes contenues dans le premier tableau de la présentation active.

Dim ColCount As Integer

Dim sl As Integer

Dim 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

Cet exemple montre comment tester la forme sélectionnée pour voir si elle contient un tableau. Le cas échéant, le code définit une valeur de 72 points pour la largeur de la colonne un (soit 2,54 centimètres).

With ActiveWindow.Selection.ShapeRange

    If .HasTable = True Then

       .Table.Columns(1).Width = 72

    End If

End With

Voir aussi

Objet Table

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.

Partager via