Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Weist einer Tabelle ein vordefiniertes Aussehen zu.
Syntax
expression.
AutoFormat( _Format_ , _ApplyBorders_ , _ApplyShading_ , _ApplyFont_ , _ApplyColor_ , _ApplyHeadingRows_ , _ApplyLastRow_ , _ApplyFirstColumn_ , _ApplyLastColumn_ , _AutoFit_ )
expression Erforderlich. Eine Variable, die ein Table-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Format | Optional | Variant | Das anzuwendende Format. Bei diesem Parameter kann es sich um eine WdTableFormat-Konstante , eine WdTableFormatApply-Konstante oder ein TableStyle-Objekt handeln. |
| ApplyBorders | Optional | Variant | True, um die Eigenschaften für den Rahmen des angegebenen Formats zu übernehmen. Der Standardwert ist True. |
| ApplyShading | Optional | Variant | True, um die Eigenschaften für die Schattierung des angegebenen Formats zu übernehmen. Der Standardwert ist True. |
| ApplyFont | Optional | Variant | True, um die Eigenschaften für die Schriftart des angegebenen Formats zu übernehmen. Der Standardwert ist True. |
| ApplyColor | Optional | Variant | True, um die Eigenschaften für die Farbe des angegebenen Formats zu übernehmen. Der Standardwert ist True. |
| ApplyHeadingRows | Optional | Variant | True, um die Eigenschaften für die Kopfzeile des angegebenen Formats zu übernehmen. Der Standardwert ist True. |
| ApplyLastRow | Optional | Variant | True, um die Eigenschaften für die letzte Zeile des angegebenen Formats zu übernehmen. Der Standardwert ist False. |
| ApplyFirstColumn | Optional | Variant | True, um die Eigenschaften für die erste Spalte des angegebenen Formats zu übernehmen. Der Standardwert ist True. |
| ApplyLastColumn | Optional | Variant | True, um die Eigenschaften für die letzte Spalte des angegebenen Formats zu übernehmen. Der Standardwert ist False. |
| AutoFit | Optional | Variant | True, wenn die Breite der Tabellenspalten so weit wie möglich verkleinert werden soll, ohne die Art zu ändern, wie der Text in den Zellen umbrochen wird. Der Standardwert ist True. |
Hinweise
Die Argumente für diese Methode entsprechen den Optionen im Dialogfeld Tabelle AutoFormat.
Beispiel
In diesem Beispiel werden in einem neuen Dokument eine 5x5-Tabelle erstellt und der Tabelle alle Eigenschaften des Formats Farbig 2 zugewiesen.
Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Range:=Selection.Range, _
NumRows:=5, NumColumns:=5)
myTable.AutoFormat Format:=wdTableFormatColorful2
In diesem Beispiel werden der Tabelle, in der sich momentan die Einfügemarke befindet, alle Eigenschaften des Formats Standard 2 zugewiesen. Wenn sich die Einfügemarke nicht in einer Tabelle befindet, wird ein Meldungsfeld angezeigt.
Selection.Collapse Direction:=wdCollapseStart
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).AutoFormat Format:=wdTableFormatClassic2
Else
MsgBox "The insertion point is not in a table."
End If
Siehe auch
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.