troubleshooting Question

PowerPoint VBA: Auto sizing text within table cell

Avatar of Bryce Bassett
Bryce BassettFlag for United States of America asked on
VBAMicrosoft PowerPoint
2 Comments1 Solution6 ViewsLast Modified:
Using VBA, I'm trying to set each cell in a PowerPoint table to auto shrink text if needed.

From what I've read, I should be able to do this with TextFrame2.  

Can anybody explain why this code isn't working?   Mytableshape is a simple 5 x 2 table.  It stops on x=1, y=1 and tells me, "the specified value is out of range."

Sub tabletest()

Dim mytableshape As Shape
Dim x As Integer
Dim y As Integer

Set mytableshape = ActivePresentation.Slides(1).Shapes(1)

For x = 1 To mytableshape.Table.Rows.Count
    For y = 1 To mytableshape.Table.Columns.Count
        mytableshape.Table.Cell(x, y).Shape.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
    Next y
Next x

End Sub

Open in new window

What am I doing wrong?
John Korchok
Production Manager
Log in to continue reading
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform for $9.99/mo
View membership options
Unlock 1 Answer and 2 Comments.
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
See how we're fighting big data
The Value of Experts Exchange in My Daily IT Life

Experts Exchange (EE) has become my company's go-to resource to get answers. I've used EE to make decisions, solve problems and even save customers. OutagesIO has been a challenging project and... Keep reading >>


Owner of Outages.IO
Phoenix, Arizona, United States
Member Since 2016
Join a full scale community that combines the best parts of other tools into one platform.
Unlock 1 Answer and 2 Comments.
View membership options
“All of life is about relationships, and EE has made a virtual community a real community. It lifts everyone's boat.”
William Peck

Member since 2004