necesito dar color al texto de esta tabla pero no logro realizarlo, tambien necesito poner borde de color negro.
Sub Tabula()
Dim oSh As Shape
Dim Tabla As Table
Set oSh = ActivePresentation.Slides(1).Shapes.AddTable(2, 4)
Set Tabla = oSh.Table
With Tabla.Cell(1, 1).Shape.TextFrame2
.TextRange.Font.Size = 8
End With
With Tabla.Cell(1, 1).Shape.Fill
.ForeColor.RGB = RGB(255, 255, 255)
.ForeColor.RGB = RGB(255, 0, 0)
End With
With Tabla.Cell(1, 1)
.Shape.TextFrame.TextRange.Delete
.Parent.Columns(1).Width = 300
End With
With Tabla.Cell(1, 2).Shape.TextFrame2
.TextRange.Text = "1"
.TextRange.Font.Size = 8
End With
With Tabla.Cell(1, 2).Shape.Fill
.ForeColor.RGB = RGB(255, 255, 0)
End With
With Tabla.Cell(1, 3).Shape.TextFrame2
.TextRange.Text = "2"
.TextRange.Font.Size = 8
End With
With Tabla.Cell(1, 4).Shape.Fill
.ForeColor.RGB = RGB(255, 128, 0)
End With
With Tabla.Cell(1, 4).Shape.TextFrame2
.TextRange.Text = "3"
.TextRange.Font.Size = 8
End With
With Tabla.Cell(1, 4).Shape.Fill
.ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub