MarginTop 属性

       

以磅为单位,返回或设置文本框的顶端到图形(包含文字)的内切矩形的顶端的距离。Single 类型,可读写。

示例

本示例向 myDocument 中添加矩形,并向该矩形中添加文字,然后设置文本框的边距。

Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 250, 140).TextFrame
    .AutoMargins = False
    .Characters.Text = "Here is some test text"
    .MarginBottom = 0
    .MarginLeft = 100
    .MarginRight = 0
    .MarginTop = 20
End With