Button to put Do Not AutoFit on all shapes

[StarPig]

Hello. I have researched, but not found, a way to convert all objects in a presentation to be 'Do Not AutoFit'. It is tedious to go through Format Shape > Text Box > Do Not AutoFit after selecting objects per slide. Anyone able to help is a genius. I do not want to use 'Set Autoshape Defaults' as this causes more agro when inserting new shapes. Thank you all.

[John Wilson]

Maybe this:


Sub DNAuto()
Dim oshp As Shape
Dim osld As Slide
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
oshp.TextFrame2.AutoSize = msoAutoSizeNone
End If
Next
Next
End Sub

[StarPig]

Works perfect John. Very grateful. Thank you. Happy New Year