Columns-Objekt (PowerPoint)

Eine Auflistung von Column -Objekten, die die Spalten in einer Tabelle darstellen.

Beispiel

Verwenden Sie die Columns -Eigenschaft, um die Columns -Auflistung zurückzugeben. In diesem Beispiel wird die erste Tabelle der aktiven Präsentation gesucht, ermittelt die Anzahl der Column -Objekte in der Columns -Auflistung und zeigt Informationen für den Benutzer.

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

Verwenden Sie die Add -Methode, um eine Tabelle eine Spalte hinzuzufügen. In diesem Beispiel wird eine Spalte in einer bestehenden Tabelle erstellt und die Breite der neuen Spalte auf 72 Punkt (1 Zoll) festgelegt.

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

    .Columns.Add.Width = 72

End With

Verwenden Sie Spalten (Index), um ein einzelnes Column -Objekt zurückzugeben. Index stellt die Position der Spalte in der Columns-Auflistung dar (in der Regel von links nach rechts gezählt, obwohl die TableDirection-Eigenschaftdies umkehren kann). In diesem Beispiel wählt die erste Spalte der Tabelle in Form 5 auf der zweiten Folie.

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

Siehe auch

PowerPoint-Objektmodellreferenz

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.