TextFrame Property Example

This example adds a rectangle to myDocument, adds text to the rectangle, and sets the top margin for the text frame.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 180, 175, 350, 140).TextFrame
    .TextRange.Text = "Here is some test text"
    .MarginTop = 10
End With