如何使用VB向EXCEL中插入一个按钮？

[berylw]

1、以下的步骤全部使用VB6写出代码，EXCEL中包含SHEET1和SHEET2
2、向SHEET1自动插入EXCEL中一个按钮控件
3、给此按钮重命名为“跳转到SHEET2”
4、点击此按钮后触发事件，跳转到SHEET2

[杨哥儿]

Sub Macro1()
ActiveSheet.Buttons.Add(200, 30, 40, 25).Select
Selection.OnAction = "按钮1_单击"
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "跳转到SHEET2"
End Sub

Sub 按钮1_单击()
Sheet2.Activate
End Sub

[berylw]

万分感谢，结贴。

[berylw]

我发了两次帖子，请到http://topic.csdn.net/u/20090127/23/39527634-7599-437b-ab35-54d6942f8f85.html
再次给分，还有100分。

[tayirvb]

学习！！！

[tianlei_zju]

thanks

[real_tang]

谢谢 谢谢

[plst]

ddddddddddddddddddddd

[judge521]

谢谢 谢谢

[zjm4560]

非常感谢