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