如何使用vba,用代码编写在打开工作表时创建命令按钮,关闭时删除按钮,谢谢各位高手!!
1个回答
展开全部
打开VBA编辑器,在 thisworkbook一栏里加入一下代码:
打开时建按钮,按钮名和大小可在程序里修改。
Private Sub Workbook_Open()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=100.5, Top:=162, Width:=97.5, Height:= _
61.5).Select
End Sub
关闭时删掉按钮,按钮名可在程序里修改
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
End Sub
打开时建按钮,按钮名和大小可在程序里修改。
Private Sub Workbook_Open()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=100.5, Top:=162, Width:=97.5, Height:= _
61.5).Select
End Sub
关闭时删掉按钮,按钮名可在程序里修改
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
End Sub
追问
谢谢,能告诉我关闭时的代码吗?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |