TEST

在图片上添加标签控件并把宏指定给标签控件。
步骤14，在VBE窗口中双击“ThisWorkbook”，在打开的代码窗口中写入下面的代码：
  Private Sub Workbook_Open()
      With Sheet2
       .ScrollArea = "A1"
       .Select
      End With
  End Sub
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
      Dim s As Integer
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      For s = Worksheets.Count To 4 Step -1
       Worksheets(s).Delete
      Next
      Application.DisplayAlerts = True
      Application.ScreenUpdating = True
      ThisWorkbook.Save
  End Sub
  Private Sub Workbook_Activate()
      Application.Caption = IIf(Sheet1.Cells(1, 2) <> "", Sheet1.Cells(1, 2), "")
      Call AddNowBar
  End Sub
  Private Sub Workbook_Deactivate()
      Application.Caption = ""
      Call DelNowBar
  End Sub