title | keywords | f1_keywords | api_name | ms.assetid | ms.date | ms.localizationpriority | ||
---|---|---|---|---|---|---|---|---|
TextFrame2.MarginTop property (PowerPoint) |
vbapp10.chm678005 |
|
|
4382b16a-9b86-ea38-d9f8-283bc4ee3161 |
06/08/2017 |
medium |
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.
expression.MarginTop
expression An expression that returns a TextFrame2 object.
Single
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
[!includeSupport and feedback]