Disable PowerPoint Auto-Resizing Pasted Ranges

[XLjedi]

In VBA (or manually) when I copy a range from Excel and paste it into
PowerPoint the table that is created in PowerPoint is resized (made smaller)
than the original range. The resulting table is exactly 2/3 it's original
size. This is NOT a handy feature as I am perfectly capable of resizing
table objects if needed.

I need to maintain the original size of the range and the font size. How do
I disable or workaround this "helpful" feature.

[XLjedi]

Thankfully I managed to stumble upon the ScaleProportionally method.

I was able to manage the following workaround to my problem...

If PPShape.Height <> Objt.Height Then
PPShape.Table.ScaleProportionally Objt.Height / PPShape.Height
End If

So after pasting the range from Excel (Objt) into PowerPoint (PPShape) I
test the shape to see if the pixel height is different and the
Table.ScaleProportionally method allows me to undo any resizing that
automagically happened.

[Gina]

Thank you!!!! I've been googling for an hour to fix this resizing of text problem because my font kept shrinking to size 5 whenever I pasted (and I did not want to paste as a picture because I wanted to keep the values intact in powerpoint).

When I paste a worksheet range from Excel, the Shapes.TextFrame.TextRange.Font.Size function does not work, and only your "ScaleProportionally" method fixed this for me. Thank you again for sharing your solution with the community.

Post by XLjedi
In VBA (or manually) when I copy a range from Excel and paste it into
PowerPoint the table that is created in PowerPoint is resized (made smaller)
than the original range. The resulting table is exactly 2/3 it is original
size. This is NOT a handy feature as I am perfectly capable of resizing
table objects if needed.
I need to maintain the original size of the range and the font size. How do
I disable or workaround this "helpful" feature.

Post by XLjedi
Thankfully I managed to stumble upon the ScaleProportionally method.
I was able to manage the following workaround to my problem...
If PPShape.Height <> Objt.Height Then
PPShape.Table.ScaleProportionally Objt.Height / PPShape.Height
End If
So after pasting the range from Excel (Objt) into PowerPoint (PPShape) I
test the shape to see if the pixel height is different and the
Table.ScaleProportionally method allows me to undo any resizing that
automagically happened.