TextFrame2.MarginTop Property (PowerPoint)
Returns or sets the distance (in points) between the top of the text frame and the top of the inscribed rectangle of the shape that contains the text. Read/write.
Syntax
expression .MarginTop
expression An expression that returns a TextFrame2 object.
Return Value
Single
Example
The following example adds a rectangle to a slide, adds text to the rectangle, and then sets the margins for the text frame.
Public Sub MarginTop_Example()
Set pptSlide = ActivePresentation.Slides(1)
With pptSlide.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame2
.TextRange.Text = "Here is some sample text"
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
End With
End Sub