Tabel opmaak VBA

Status
Niet open voor verdere reacties.

Arjantjuhhh92

Gebruiker
Lid geworden
6 jun 2018
Berichten
10
Hi,

Hoe kan je de gegevens van een bepaalde Tabel opmaak achterhalen en het vervolgens na bouwen in VBA?
Hieronder een voorbeeld van een basic tabel, nu wil ik de kleuren anders hebben die precies overeen komen met een andere tabel.

Set MyTable = oDoc2.Tables.Add(Range:=oDoc2.Bookmarks("\EndOfDoc").Range, _
NumRows:=2, NumColumns:=2, DefaultTableBehavior:=0)
With MyTable
.Borders.InsideLineStyle = 7
.Borders.OutsideLineStyle = 7
.Range.ListFormat.RemoveNumbers NumberType:=1
.Rows(1).Range.Font.Name = "Trebuchet MS"
.Rows(1).Range.Font.Size = 14
.Rows(1).Range.Font.ColorIndex = 2 'Blue
.Rows(1).Cells(1).Range.Text = "Test"
.Rows(1).Cells(2).Range.Text = "Test"
.Rows(2).Range.Font.Name = "Arial"
.Rows(2).Range.Font.Size = 12
.Rows(2).Range.Font.ColorIndex = 1 'Black
End With
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan