necesito poder recorrer una tabla creada en powerpoint y asignar un color de fondo a la celda segun el valor que tenga dentro.
El codigo que llevo hasta el momento es el siguiente, pero no logro ver donde estoy fallando.
Sub cuenta()
Dim totalfilas As Long
totalfilas = ActivePresentation.Slides(3).Shapes(4).Table.Rows.Count
MsgBox totalfilas
For x = 1 To totalfilas
If x.cell(1).Shape.TextFrame.TextRange.Text = "-0.1 mm" Then
x.Fill.ForeColor.RGB = RGB(500, 105, 0)
End If
Next
MsgBox x
End Sub