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

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

2、【第二步】  点击“开发工具”选项卡，再单击“查看代码”按钮，或者直接按下组合键Alt+F11，来打开VB代码编辑器窗口。

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 = Nothing

End Sub

Sub backto()

    Worksheets("目录").Activate

    [a1].Select

End Sub

4、【第四步】 运行代码以后，最小化代码窗口，我们但会工作簿主界面，可以看到出了“目录”工作表，其他的工作表都已经自动插入了一个可以返回“目录”的按钮。

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

6、【第六步】  更改参数以后，我们再一次运行代码，就可以看到工作表中的按钮位置和大小发生了变化，按钮变大了很多，同样也可以实现“返回目录”的功能。