把文本框添加到桌面不好用

marmot777 · 发表于 2024-7-4 22:58

Sub AddTextBoxToDesktop()
Dim txtBox As Shape
' 添加文本框
Set txtBox = ThisWorkbook.Worksheets("Sheet1").Shapes.AddTextbox( _
msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=200, Height:=50)

' 设置文本框内容
txtBox.TextFrame2.TextRange.Text = "这是文本框"

' 设置文本框的字体大小
txtBox.TextFrame2.TextRange.Font.Size = 12

' 可以继续设置其他属性，例如字体、颜色等
End Sub

运行这段代码，文本框添加到工作表上，没有添加到桌面上，这是怎么回事？

micch · 发表于 2024-7-4 23:42

文本框能添加到桌面吗？

饮冰e士 · 发表于 2024-7-5 09:20

直接添加到桌面可能不行，通过截图、设置壁纸的方式？

tanglf188 · 发表于 2024-7-5 09:57

直接添加是不可能的，间接办法使用透明窗体或无标题窗体，窗体上添加所需控件

		自动登录	找回密码
密码			免费注册

[求助] 把文本框添加到桌面不好用

评分