If you customize PowerPoint with controls (button, text boxes, labels, etc.) you may want to delete or hide these to create a clean version of your presentation. Below is a script you can use hide all of the controls (or you can filter). My example uses PowerPoint 2010 but should apply to most recent versions:
1. Create a new module:
2. Paste the below text:
Public Sub HideControls()
'keep a count of how many items hidden - just fyi
Dim cntrlCount As Integer
'loop through slides
For Each sld In ActivePresentation.Slides
'loop through slide shapes - includes button, text boxes, ole controls, etc
For Each shp In sld.Shapes
''Filter here if you want - by name or type
' If InStr(shp.Name, "command") >= 1 Then
' If shp.Type = 3 Then
shp.Visible = False
'if you wanted to delete*: shp.Delete
cntrlCount = cntrlCount + 1
MsgBox cntrlCount & " items affected."
3. Click Run (green play button) to run this code and hide your controls.
If you want to show or unhide your controls, change shp.Visible = False to shp.Visible = True
*Note: if you use shp.Delete, you won’t be able to recover your items.