View Single Post
 
Old 11-14-2021, 09:58 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

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
Reply With Quote