Hallo liebe Community,
ich möchte gerne in Excel, über eine Schaltfläche, eine Tabelle einfügen. Mit dem aktuellen Code funktioniert dies auch schon, allerding wird dabei die Spaltenbreite automatisch angepasst. Also nun meine Frage, ist es möglich das man für jede einzelne Spalte eine definierte Breite einstellen kann?
Sub TabelleEinfügen()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _
4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "Tabellenraster" Then
.Style = "Tabellenraster"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
.ApplyStyleRowBands = True
.ApplyStyleColumnBands = False
End With
End Sub
Ich freue mich über jede Antwort!
Mit freundlichen Grüßen
Lukas Möller
|