Word用户VBA设置为“文本框”边框样式

问题描述

使用vba函数...Shapes.AddTextBox(...)在MS Word中添加了文本框。如何使用vba将创建的文本框的边框样式设置为点？

我确实尝试在手动设置线条样式时记录宏，但是代码没有出现在宏中。

解决方法

类似这样的东西：

Sub InsertTextBox()
  Dim tb As Shape
  Set tb = ActiveDocument.Shapes.AddTextbox _
    (Orientation:=msoTextOrientationHorizontal,_
    Left:=1,Top:=1,Width:=100,Height:=100)
  tb.Line.DashStyle = msoLineRoundDot
End Sub