|
|
#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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
| Tags |
| help me, shape margin removal |
| Thread Tools | |
| Display Modes | |
|
|
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 |
Windows 10 
Office 2016
Threaded Mode