shrinking font/text box within a shape using VBA in PowerPoint

Question

I am trying to shrink the text box when ever it overflows or touches boundaries of shape it is within. So that, it fits into the shape ( shapes like rectangle, square etc ). It will be more helpful if this can be done across whole presentation in all slides. Please spread beam of hope!

As shown in the picture below, I would like to manipulate text " climate changes " to look like "climate" in upper box.

Mikku · Accepted Answer · 2019-07-22 03:58:08Z

1

It is a simple code:

oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape

where Oshp is the Shape in PPT

Looping through all shapes in Slide 1

Sub ResizeText()

Dim shp As Shape

    For Each oShp In ActivePresentation.Slides(1).Shapes

    oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape

    Next


End Sub

Link to Similar Answer

edited Jul 22, 2019 at 3:58

answered Jul 22, 2019 at 3:47

Mikku

6,7043 gold badges19 silver badges39 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

John Korchok · Accepted Answer · 2019-07-22 14:03:37Z

0

A text box is never "within" a shape. They are separate objects that are stacked on top of each other. Please see my answer to your subsequent question for better ways to handle this type of formatting.

answered Jul 22, 2019 at 14:03

John Korchok

4,9782 gold badges13 silver badges24 bronze badges

Collectives™ on Stack Overflow

shrinking font/text box within a shape using VBA in PowerPoint

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related