Table of contents
TOC
Inhaltsverzeichnis reduzieren
Inhaltsverzeichnis erweitern

Table.Columns-Eigenschaft (PowerPoint)Table.Columns Property (PowerPoint)

office 365 dev account|Zuletzt aktualisiert: 06.03.2018
|
2 Mitarbeiter

Gibt eine Columns -Auflistung, die alle Spalten in einer Tabelle darstellt. Schreibgeschützt.Returns a Columns collection that represents all the columns in a table. Read-only.

SyntaxSyntax

Ausdruck. Spaltenexpression. Columns

Ausdruck Eine Variable, die ein Table -Objekt darstellt.expression A variable that represents a Table object.

RückgabewertReturn Value

ColumnsColumns

BemerkungenRemarks

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter Zurückgeben eines Objekts aus einer Auflistung.For information about returning a single member of a collection, see Returning an Object from a Collection.

BeispielExample

In diesem Beispiel wird die Nummer der Form, die Foliennummer und die Anzahl der Spalten in der ersten Tabelle der aktiven Präsentation angezeigt.This example displays the shape number, the slide number, and the number of columns in the first table of the active presentation.

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.This example tests the selected shape to see if it contains a table. If it does, the code sets the width of column one to 72 points (one inch).

With ActiveWindow.Selection.ShapeRange

    If .HasTable = True Then

       .Table.Columns(1).Width = 72

    End If

End With

Siehe auchSee also

KonzepteConcepts

Table-ObjektTable Object

© 2018 Microsoft