0

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
2
  • Hola ¿Cuántas columnas tienen la tabla? y ¿Necesitas recorrer todas las celdas de todas las filas/columnas o alguna columna en particular? el 8 sep. 2022 a las 20:39
  • Hola, tiene 4 columnas y necesito recorrer toda la columna 2 y que por ejemplo hay una. Celda que tenga el valor 3 la pinte de color rojo, y si hay una celda con valor 20 la pinte amarillo.
    – Daxtrox
    el 8 sep. 2022 a las 21:37

1 respuesta 1

1

Con la nueva información que aportas, la solución sería la siguiente:

Sub cuenta()

Dim totalfilas As Long, x As Long
Dim valor$

With ActivePresentation.Slides(3).Shapes(4).Table

    totalfilas = .Rows.Count

    For x = 1 To totalfilas

        valor = .Cell(x, 2).Shape.TextFrame.TextRange.Text
    
        If valor = "-0.1 mm" Then
            .Cell(x, 2).Shape.Fill.ForeColor.RGB = RGB(255, 105, 0)
        End If

    Next x

End With

End Sub

No te olvides que los valores RGB son de 0 a 255. Saludos.

9
  • Muchas gracias por tu respuesta, probé el código, pero no me colorea todas las celdas que cumplen con los -0.1 mm, a que se puede deber?
    – Daxtrox
    el 9 sep. 2022 a las 0:01
  • Hola nuevamente. Probablemente haya diferencias que no has notado; por ejemplo no es lo mismo "-0.1 mm" que "-0.1 mm " o que "-0.1 mm" ¿notas las diferencias? Pero si es eso, pues solo tú puedes saberlo/verlo. De no ser eso, es complicado dar una respuesta certera sin ver el archivo. el 9 sep. 2022 a las 0:40
  • 1
    Lo otro es que coloques tu archivo en un drive y compartas por aquí el enlace, aunque no sé si las reglas lo permitan, pero no pierdes nada intentando. Si tienes información privada, solo bórrala. el 9 sep. 2022 a las 1:20
  • 1
    no se entiende ¿Pudiste resolver el dilema o no? De ser no la respuesta ¿Por qué no compartes tu archivo? Si tienes datos privados, solo reemplázalos pero mantén la estructura principal para ver qué ocurre. el 11 sep. 2022 a las 6:32
  • 1
    Ajá, excelente. Saludos. el 11 sep. 2022 a las 13:08

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.