Hello!

This is for PowerPoint, but hopefully the VBA is similar. I would like to go through the whole document and for every textbox it finds, remove all the internal margins.

Here's what I got but it keeps giving me an "Object Required" error:

Sub shape()
Dim shp As shape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoTextBox Then
With shp.TextFrame
.MarginLeft = 0
.MarginRight = 0
.MarginBottom = 0
.MarginTop = 0
End With
End If
Next
End Sub
I appreciate your help!

Regards,

Leaning