暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / 自定义主窗口标题栏名称

自定义主窗口标题栏名称

VBA语言専攻 2022-01-23
76
【分享成果，随喜正能量】人生学会随缘，才能活得自由。随不是追随，是顺其做作，不恼恨，不躁进，不适度，不强求;随不是随意，是掌握机缘，不达观，不刻板，不忙乱，不忘形;随是一种达观，是一种潇洒，是一份人生的成熟，一份人情的练达。
《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。
这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第33讲：自定义主窗口标题栏名称

第三十三讲  VBA代码改变Excel主窗口标题栏名称

朋友们好，今日讲VBA代码的第33讲，如何通过VBA代码改变Excel主窗口标题栏名称。
我们知道Excel主窗口标题栏默认的名称是“Microsoft Excel”，那么有没有什么办法更改这个设置呢？因为只显示 “Microsoft Excel”太单调了。其实，我们可以通过设置Application对象的Caption属性可以改变Excel主窗口的标题栏。

1  Application对象的Caption属性

应用于Application对象的Caption属性设置会显示在Microsoft Excel主窗口标题栏中的名称。
语法如下：expression.Caption。如果未设置Caption属性（""）或将其设置为Empty（表示未初始化的变量值），则本属性返回默认的“Microsoft Excel”。将Caption属性设置为常数vbNullChar（表示值为 0 的字符）可以删除标题栏中的名称。

2  改变主窗口标题栏名称的代码及代码解读

下面我们通过一段代码来说明改变Caption属性后改变主窗口标题栏默认名称的办法，如下面的代码所示。

Private Sub Workbook_Activate()
 Application.Caption = "VBA语言"
End Sub
Sub mynz_33() '第33讲 如何通过VBA代码改变Excel主窗口标题栏名称
  MsgBox "下面将恢复默认的标题栏名称!"
  Application.Caption = Empty
End Sub

代码解析：
1） 第2行代码将Excel窗口标题设置为“VBA语言”。
2） 第5行代码恢复Microsoft Excel主窗口标题栏中的名称。这是通过设置Caption的属性为 Empty来完成的。

下面看代码窗口：
代码运行后：窗口标题变成为“VBA语言”。

在运行mynz_33后，窗口标题变又成为“Microsoft Excel”了。

那么有没有办法把窗口标题变成空呢？有，看下面的代码：
Private Sub Workbook_Activate()
Application.Caption = vbNullChar
End Sub
Sub mynz_33() '第33讲 如何通过VBA代码改变Excel主窗口标题栏名称
  MsgBox "下面将恢复默认的标题栏名称!"
  Application.Caption = Empty
End Sub

代码解析：
1）第2行代码删除Excel主窗口标题栏，
3）第5行代码恢复Microsoft Excel主窗口标题栏中的名称。这是通过设置Caption的属性为 Empty来完成的。




今日内容回向：
1  Application对象的Caption属性有什么意义？
2  如何改变Excel主窗口标题栏的名称呢？


本讲内容参考程序文件：VBA代码解决方案修订（1-48）.xlsm





我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】嘴狠，赢一时；心广，赢一世；坦诚待人，真诚做事，淡定看人，淡然处世。能够善待和无视不太喜欢的人，并不代表你虚伪，而意味着你内心成熟到可以容纳这些不喜欢。
vba标题栏电子表格
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论