Freigeben über

ShapeRange.Table-Eigenschaft (Publisher)

  • Artikel

Gibt ein Table-Objekt zurück, das eine Tabelle in Microsoft Publisher darstellt.

Syntax

Ausdruck. Tabelle

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

Beispiel

Das folgende Beispiel fügt eine Tabelle der Größe 5x5 auf der ersten Seite der aktiven Publikation hinzu und wählt dann die erste Spalte der neuen Tabelle aus.

Sub NewTable() 
 With ActiveDocument.Pages(1).Shapes.AddTable(NumRows:=5, _ 
 NumColumns:=5, Left:=72, Top:=300, Width:=400, Height:=100) 
 .Table.Columns(3).Cells(3).Fill.ForeColor.RGB = RGB _ 
 (Red:=255, Green:=0, Blue:=0) 
 End With 
End Sub

Das folgende Beispiel wählt die angegebene Tabelle in der aktiven Publikation aus. In dem folgenden Beispiel wird davon ausgegangen, dass sich auf der ersten Seite der aktiven Publikation mindestens eine Form befindet.

Sub SelectTable() 
 With ActiveDocument.Pages(1).Shapes(1) 
 If .Type = pbTable Then 
 .Table.Rows(3).Cells(3).Fill.ForeColor _ 
 .RGB = RGB(Red:=150, Green:=150, Blue:=150) 
 End If 
 End With 
End Sub

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.