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
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