首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >通过VBA插入表单控制按钮

通过VBA插入表单控制按钮
EN

Stack Overflow用户
提问于 2019-09-03 08:03:23
回答 2查看 1.6K关注 0票数 0

我想通过VBA将一个button插入到我的工作表中。因此,我尝试使用来自here的简单VBA。

代码语言:javascript
运行
复制
Sub Insert_Button()
Sheet1.Shapes("Button 1").Visible = True
End Sub

但是,此VBA只在之前手动插入和隐藏按钮时才能工作。

我也尝试了here的解决方案,但是它将代码标记为红色,没有运行。

如果该按钮在文件中不存在,我如何通过VBA插入form control button

EN

回答 2

Stack Overflow用户

回答已采纳

发布于 2019-09-03 08:07:25

这应该是可行的:

代码语言:javascript
运行
复制
ActiveSheet.Buttons.Add(185.25, 61.5, 85.5, 24.75).Select

数字是协调的,所以如果要将按钮添加到单元格中,就必须使用单元格的左边/顶部.像这样

代码语言:javascript
运行
复制
With ActiveSheet
    .Buttons.Add(.Cells(2, 2).Left, .Cells(2, 2).Top, 85.5, 24.75).Select
End With

若要包括范围的宽度和高度,如“A1:B2”.

代码语言:javascript
运行
复制
With ActiveSheet
    .Buttons.Add(.Cells(1, 1).Left, .Cells(2, 2).Top, .Cells(1, 1).Width + .Cells(1, 2).Width, .Cells(1, 1).Height + .Cells(2, 2).Height).Select
End With
票数 0
EN

Stack Overflow用户

发布于 2019-09-03 08:07:51

试试这个:

代码语言:javascript
运行
复制
ActiveSheet.Shapes.AddFormControl xlButtonControl, 100, 100, 50, 20

数字是插入按钮的左边位置、顶部位置、宽度和高度。

票数 1
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/57767453

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档