如何批量给工作表插入返回目录的按钮

1、【第一步】 准备好需要插入返回目录按钮的工作簿，打开工作簿，需要确保工作簿有一个目录或者总表工作表，作为返回的对象。

3、【第三步】 再打开的VB代码编辑独瘦配溧窗口中插入一个新模块，将以下代码复制到模块中，点击运行Sub Button() Dim MySht As Worksheet, MyButton As Button, ShtName As String ShtName = "目录"'如果不是目录，则改为其他名称 For Each MySht In Worksheets With MySht If .Name <> ShtName Then .Shapes(ShtName).Delete ' Set MyButton = .Buttons.Add(50, 10, 60, 30) With MyButton .Name = ShtName '对按钮命名 .Characters.Text = "返回" & ShtName '指定按钮的标题 .OnAction = "backto" '指定按钮对应的宏命令 End With End If End With Next Set MyButton = NothingEnd SubSub backto() Worksheets("目录").Activate [a1].SelectEnd Sub

5、【第五步】 当然按钮是可以更改参数的，Buttons.Add(50, 10, 60, 30)方法中的4个参剞麽苍足数分别代表的是按钮的Xpos、Ypos、按钮宽度和按钮高度，比如我们将参数设置为Buttons.Add(100, 100, 100, 50)。