作者：绿色风
分类：
时间：2022-08-17
浏览：90
楼主
biaotiger1 |
Q：如何利用VBA插入一个文本框？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下
- Sub 如何插入文本框()
- Dim LBL As Shape
- Set LBL = ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 30, 40, 50)
- End Sub
运行以上代码则在活动工作表中插入一个文本框。其位置为文本框左上角相对于文档左上角20磅，文本框上边相对于文档顶部30磅，宽度40磅，高度50磅。
msoTextOrientationHorizontal表示文字方向为横排。 |
2楼
biaotiger1 |
Q：如何用VBA插入带文字的文本框？
A：ALT+F11→“插入”→“模块”，在代码窗口中输入代码如下- Sub 如何在文本框中添加文字()
- ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 100, 100, 100, 100).TextFrame2.TextRange.Characters.Text = "123"
- End Sub
|
3楼
wnianzhong |
学习一下VBA,谢谢. |
4楼
01xk |
今天正好遇到这个问题，工作表中有很多文本框，如何删除没有内容的空文本框，而保留有内容的。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一