怎样使用VBA在功能区建立自己的工具按钮？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Declare Function GetTickCount Lib "kernel32" () As Long

                                        '电脑使用时间的声明
Sub auto_open()
'添加第一个菜单按钮
    With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True)
      .Caption="显示磁盘空间(&Space)"
      .OnAction="显示磁盘卷标及空间"
      .Style=msoButtonIconAndCaption
      .FaceId=1185
      End With
'添加第二个菜单按钮
    With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True)
      .Caption="电脑使用时间(&Times)"
      .OnAction="电脑使用时间"
      .Style=msoButtonIconAndCaption
      .FaceId=487
      End With
'添加第三个菜单按钮
    With Application.CommandBars(1).Controls.Add(msoControlButton, 1, , , True)
      .Caption="查电脑IP(&IP)"
      .OnAction="查电脑IP"
      .Style=msoButtonIconAndCaption
      .FaceId=481
      End With
End Sub

Sub auto_close()

Application.CommandBars(1).Reset
End Sub
 Sub电脑使用时间()
MsgBox "您的电脑已使用:" & Chr(10) & Round(GetTickCount / 1000 / 60, 0) &
"分钟", vbOKOnly+64, "请注意休息"
End Sub
Sub显示磁盘卷标及空间()
On Error Resume Next
    Dim磁盘, 磁盘与卷标As String, 卷标
    Set卷标=CreateObject("Scripting.FileSystemObject").Drives
      For Each磁盘In卷标
    Set fs=CreateObject("Scripting.FileSystemObject")
    Set drive=fs.GetDrive(fs.GetDriveName(磁盘 & ":"))
    MsgBox "磁盘" & UCase(磁盘) & Chr(10) & "卷标名：" & drive.VolumeName & Chr(10) _
      & "剩余空间：" & FormatNumber(drive.FreeSpace / 1024 / 1024, 0) & "
MB", 64, "磁盘空间"
    Next
End Sub
Sub查电脑IP()
  Dim OpSysSet, OpSys
  Set OpSysSet=GetObject _
    ("winmgmts:{impersonationLevel=impersonate}//" & ComputerName). _
    ExecQuery("SELECT index, IPAddress FROM
    Win32_NetworkAdapterConfiguration")
  For Each OpSys In OpSysSet
    If TypeName(OpSys.IPAddress) <> "Null" Then
        For Each IP In OpSys.IPAddress
          MsgBox IP, 64, "IP地址"
        Next
    End If
  Next
End Sub

5、用快捷键F5运行程序，或者重启工作簿，【加载项】功能区出现三个菜单按钮，如图