Help with Removal of 1 shape margins...

Guessed · #1 11-14-2021, 09:58 PM

Try this code to set zero margins on the selected shapes

Code:

Sub SetTextPadding()
  Dim aShp As Shape
  For Each aShp In Selection.ShapeRange
    With aShp.TextFrame
      Debug.Print .TextRange.Text
      .MarginTop = 0 
      .MarginBottom = 0
      .MarginLeft = 0
      .MarginRight = 0
    End With
  Next aShp
End Sub

Cendrinne · #2 03-01-2025, 10:29 PM

Hello Andrew,
I don't think I've ever came back to this post. I was having and issue, so I've done research on Text boxes margins or padding, I was surprise that was my own question, and even more surprised to see it was answered.

Thank you.

I do have a script to select all text boxes, and used this macro, it removed all the textboxes padding/margins

Thank you thank you thank you so much.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Fit text to shape / Place table in shape	Floppy	PowerPoint	0	04-01-2021 11:01 AM
How to change size / shape of a shape in a stencil	tomgoodell	Visio	1	06-30-2016 04:40 AM
Removal first 7 typos	Chetan Seebra	Excel Programming	2	03-31-2015 12:57 PM
how to center a title within the page margins not the document's margins in word 2013	wondermuse	Word	1	12-31-2014 11:32 PM
Original view included margins; now can only see side margins	Sarah_B	Word	3	10-15-2013 09:48 AM