Arbeiten mit Tabellen

In PowerPoint können Sie native Tabellen erstellen, ohne sie aus Word importieren zu müssen. Tabellen sind Elemente der Shapes -Auflistung. Jede Zelle, Spalte und Zeile in einer Tabelle stellt ein separates, programmierbares Objekt dar.

Erstellen einer Tabelle

Verwenden Sie die AddTable -Methode, um eine Tabelle auf einer Folie zu erstellen. Mit dieser Methode wird zu der Shapes -Auflistung eine Tabelle mit der durch das NumRows -Argument und das NumColumns -Argument festgelegten Anzahl von Zeilen und Spalten hinzugefügt. In dem folgenden Beispiel wird zu Folie 2 eine Tabelle mit drei Zeilen und vier Spalten hinzugefügt:

ActivePresentation.Slides(2).Shapes _
    .AddTable NumRows:=3, NumColumns:=4, Left:=10, _
    Top:=10, Width:=288, Height:=288

Überprüfen der Tabelleneigenschaft einer Form

Bevor Sie mit den Inhalten oder Objekten in einer Tabelle arbeiten können, müssen Sie zunächst wissen, ob die Form, mit der Sie arbeiten, eine Tabelle ist. Verwenden Sie die HasTable-Eigenschaft , um festzustellen, ob eine Form eine Tabelle ist. Angenommen, Folie 1 enthält zahlreiche Formen, und Sie wissen, dass eine davon eine Tabelle ist. Sie möchten die Größe dieser Tabelle so ändern, dass sie die richtige Größe hat, um die Daten zu akzeptieren, die Sie aus einer anderen Quelle importieren möchten. Dieser Code durchläuft die Shapes-Auflistung auf Folie 2, um die Tabelle zu finden, und ändert dann die Breite der Spalten.

With ActivePresentation.Slides(2)
    For sh = 1 To .Shapes.Count
        If .Shapes(sh).HasTable Then
            For Each col In .Shapes(sh).Table.Columns
                col.Width = 110
            Next col
        End If
    Next
End With

Arbeiten mit Zellen, Spalten und Zeilen

Verwenden Sie ein bestimmtes Element der Columns -Auflistung oder der Rows -Auflistung, um den Inhalt und die Eigenschaften einer einzelnen Spalte oder Zeile zurückzugeben. Die Cell -Methode gibt ein einzelnes Cell -Objekt innerhalb eines Table -Objekts zurück. In dem folgenden Beispiel werden verschiedene Attribute einer Tabelle (dargestellt durch Form 4 auf Folie 2) geändert. Die Änderungen betreffen die Farbe von Zeile 2, die Breite von Spalte 1 sowie den Text der Zelle in Zeile 2/Spalte 1.

With ActivePresentation.Slides(2).Shapes(4).Table
    For Each cl In .Rows(2).Cells
        cl.Shape.Fill.ForeColor.RGB = RGB(50, 125, 0)
    Next cl
    .Columns(1).Width = 110
    .Cell(2, 1).Shape.TextFrame.TextRange.Text = "Mallard"
End With

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.