Buen día.... necsito su ayuda.....
En al sigiente parte del codigo:
With diapositiva.Shapes("SueldosPUP").Table
Indicador = 0
For M1 = 1 To marcas
.cell(M1 + 1, 1).Shape.TextFrame.TextRange.Text = Tabla_descansos(1, M1)
.cell(M1 + 1, 2).Shape.TextFrame.TextRange.Text = Tabla_descansos(2, M1)
.cell(M1 + 1, 3).Shape.TextFrame.TextRange.Text = Tabla_descansos(3, M1)
.cell(M1 + 1, 4).Shape.TextFrame.TextRange.Data = Tabla_descansos(4, M1)
.cell(M1 + 1, 5).Shape.TextFrame.TextRange.Text = Tabla_descansos(5, M1)
Indicador = Indicador + 1
Next M1
End With
Es para pasar los datos de una tabla de Excel a una tabla ya establecida en pptx..... pero el detalle es el formato:
Ejemplo: en excel tengo 2.3% (Formato porcentaje), cuando se pasa a pptx se pasa 0.023...
¿como puedo hacer para mantener el formato de Excel y que se vean porcentajes, no decimales?
Ayuda!!!!!
Adjunto | Tamaño |
---|---|
ayuda_excel.png | 6.38 KB |
Si no dices nada, por defecto toma el valor numérico que hay en la celda, es decir: 100% = 1
En Excel, una cosa es lo que se ve en la celda y otra cosa es el valor de la celda
Activecell.Value es el valor de la celda
Activecell.Text es el texto con formato de tu celda
Así que una posibilidad es que cuando leas los datos de Excel tomes el texto de las celdas en vez de su valor
Otra posibilidad, es que apliques el formato. Para ello la función FORMAT permite dar formato a tu valor numérico para que tenga el aspecto que te interesa, por ejemplo:
.cell(M1 + 1, 1).Shape.TextFrame.TextRange.Text = Format(Tabla_descansos(1, M1),"0.00%")
------
Ya sé Excel, pero necesito más.
Resuelto, la funcion FORMAT fue la solución muchas gracias
Hola amigo podrias compartir tu codigo necesito pasar informacion de excel a power point