如何将大纲添加到VBScript中的文本框

我正在使用VBScript在Excel中创build一个基本的文本框：

Dim TextBox Set TextBox = objWorksheet.Shapes.AddTextBox(1, 57, 31.8, 228.24, 18.72) TextBox.TextFrame.Characters.Text = "Test" TextBox.TextFrame.Characters.Font.Bold = True TextBox.TextFrame.Characters.Font.Size = 14 TextBox.TextFrame.Characters.Font.Name = "Arial" TextBox.TextFrame.Characters.Font.Color = RGB(0, 0, 0) 

我想为此文本框添加黑色轮廓。 我如何做到这一点？ 我似乎无法find任何有关文本框属性的文档等。

Answer 1

这应该有帮助 – 我使用macroslogging器来获得这个代码，所以需要一点点整理

 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 330.75, 76.5, 139.5 _ , 125.25).Select With Selection.ShapeRange.Line .Visible = msoTrue .ForeColor.RGB = RGB(0, 0, 0) .Transparency = 0 End With 

Answer 2

使用macroslogging器，我得到这个：

 With TextBox.ShapeRange.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 End With