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

[chuwaka]

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