What am I doing wrong?
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
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 >>