Text fit properly within different size shapes to its maximum size using vba code.

[Aussiebear]

Maybe try this

Sub proper_fit()
Dim shpImage As Shape
Set shpImage = ActivePresentation.Slides(1).Shapes("shape1")
With shpImage
    .TextFrame2.TextRange.Font.Size = 700
    .TextFrame2.AutoSize = msoAutoSizeTextToFitShape
End With
End Sub

and then try adjusting the font size downwards