Help with Removal of 1 shape margins...

Cendrinne · #1 11-14-2021, 09:06 PM

Hello pros,
I also need help how to write a script to have a macro to remove 1 shape margins on all sides. The default are: Left and Right = 0.1", Top and Bottom = 0.05".

I've tried to change them to all 0" by Default, but it came back to the original state.
I've tried to change it in the Normal.dotm Default textbox, but nope, didn't do anything.

So recording my steps was fruitless, because it didn't record the part of removing the margins, and I found No already Word tool to put in the ribon.

Any suggestions, pros?

Cendrienne

Guessed · #2 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

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