以磅为单位,返回或设置文本框的顶端到图形(包含文字)的内切矩形的顶端的距离。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