代码运行后:窗口标题变成为“VBA和GO语言”。
在运行MyAppCaption后,窗口标题变又成为“Microsoft Excel”了。
那么有没有办法把窗口标题变成空呢?有,看下面的代码:
Private Sub Workbook_Activate()
Application.Caption = vbNullChar
End Sub
Sub DleCaption()
MsgBox "下面将恢复默认的标题栏名称!"
Application.Caption =Empty
End Sub
代码解析:第2行代码删除Excel主窗口标题栏,第5行代码恢复Microsoft Excel主窗口标题栏中的名称。这是通过设置Caption的属性为 Empty来完成的。
今日内容回向:
1 Application对象的Caption属性有什么意义?
2 如何改变Excel主窗口标题栏的名称呢