☰

如何使用 VBA 选择文本框

tag-icon • tag-icon microsoft-excel vba
如何使用 VBA 选择文本框

如何使用 VBA 选择文本框。我想对那些我手动选择的文本框进行更改，以更改其字体、背景颜色。

Set s = ws.Shapes("").Selected Shape


Sub TextBox()

Dim wb As Workbook
Dim ws As Worksheet
Dim s As Shape

Set ws = ActiveSheet
Set s = ws.Shapes("TextBox 7") ' Here i want to add one thing that is it should work for selected textbox manually

s.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
s.TextFrame2.TextRange.Font.Bold = msoTrue
s.Fill.ForeColor.RGB = RGB(255, 192, 0)

End Sub

答案1

代码可以通过使用 ShapeRange 属性 返回选择中的所有形状的 Selection 对象。

下面的示例设置窗口一中选择的所有形状的填充前景色（假设选择中至少有一个形状）。

Windows(1).Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 255)

在您的代码中，您只需设置：

Set s = Windows(1).Selection.ShapeRange

相关内容