Question

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

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)

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

Answer 1

使用宏录制器，我得到了这个：

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

Answer 2

这应该有帮助 - 我使用宏录制器来获取此代码，因此需要进行一些整理

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

如何在VBScript中向文本框添加大纲

2 个答案: