Freigeben über


Table.Columns-Eigenschaft (PowerPoint)

Gibt eine Columns -Auflistung zurück, die alle Spalten in einer Tabelle darstellt. Schreibgeschützt.

Syntax

Ausdruck. Spalten

Ausdruck Eine Variable, die ein Table-Objekt darstellt.

Rückgabewert

Spalten

Hinweise

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter Zurückgeben eines Objekts aus einer Auflistung.

Beispiel

In diesem Beispiel wird die Nummer der Form, die Foliennummer und die Anzahl der Spalten in der ersten Tabelle der aktiven Präsentation angezeigt.

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

In diesem Beispiel wird die ausgewählte Form daraufhin überprüft, ob diese eine Tabelle enthält. Wenn dies der Fall ist, stellt der Code die Breite der Spalte 1 auf 72 Punkt (1 Zoll, ca. 2,54 cm) ein.

With ActiveWindow.Selection.ShapeRange

    If .HasTable = True Then

       .Table.Columns(1).Width = 72

    End If

End With

Siehe auch

Table-Objekt

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.