vba设置主窗口标题栏大小(VBA代码第三十七讲)
朋友们好,今日讲VBA代码的第三十七讲,如何通过VBA代码改变Excel主窗口标题栏名称。
我们知道Excel主窗口标题栏默认的名称是"Microsoft Excel",那么有没有什么办法更改这个设置呢?因为只显示 "Microsoft Excel"太单调了。其实,我们可以通过设置Application对象的Caption属性来改变Excel主窗口的标题栏。
应用于Application对象的Caption属性设置会显示在Microsoft Excel主窗口标题栏中的名称,语法如下:expression.Caption。如果未设置Caption属性("")或将其设置为Empty(表示未初始化的变量值),则本属性返回默认的"Microsoft Excel"。将Caption属性设置为常数vbNullChar(表示值为 0 的字符)可以删除标题栏中的名称。
下面我们通过一段代码来说明改变Caption属性后改变主窗口标题栏默认名称的办法,如下面的代码所示。
Private Sub Workbook_Activate()
Application.Caption = "VBA和GO语言"
End Sub
Sub MyAppCaption()
MsgBox "下面将恢复默认的标题栏名称!"
Application.Caption = Empty
End Sub
代码解析:
第2行代码将Excel窗口标题设置为"VBA和GO语言"。
代码运行后:窗口标题变成为"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主窗口标题栏的名称呢
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com