Saltar al contenido

Duda: añadir cuadros de texto en powerpoint desde excel

publicado

Muy buenas

Tengo una macro en excel que añade cuadros de texto (4) en la presentación que está abierta en Powerpoint. El problema es que al pegarlas, automáticamente me cambia el tamaño del cuadro de texto. Ahí va el código

        ConsumerAcceptanceText = Range("a14").Value                            ' Valoración clientes y % Model Price
ConsumerAcceptance = Format(Range("b14").Value, "#0.0")
ModelPriceText = Range("a18").Value
ModelPrice = Format(Range("b18").Value, "0%")
Vacio = Range("b19").Value





PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 250, 100, 170, 170).TextFrame.TextRange = ConsumerAcceptanceText
With PPSlide.Shapes(5).TextFrame
.AutoSize = ppAutoSizeNone
.WordWrap = True
End With
PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 350, 100, 70, 170).TextFrame.TextRange = ConsumerAcceptance
With PPSlide.Shapes(6).TextFrame
.AutoSize = ppAutoSizeNone
.WordWrap = True
End With
PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 500, 100, 80, 170).TextFrame.TextRange = ModelPriceText
With PPSlide.Shapes(7).TextFrame
.AutoSize = ppAutoSizeNone
.WordWrap = True
End With
PPSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 570, 100, 80, 170).TextFrame.TextRange = ModelPrice

With PPSlide.Shapes(8).TextFrame
.AutoSize = ppAutoSizeNone
.WordWrap = True
End With

PPSlide.Shapes.AddShape(msoShapeRectangle, 570, 100, 80, 170).TextFrame.TextRange = Vacio
With PPSlide.Shapes(9).TextFrame
.AutoSize = ppAutoSizeNone
.WordWrap = True
End With
[/CODE]

Gracias a todos

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.