No.1

学习本节之前，首先要了解一下，什么是ClearType。

ClearType是微软公司在Windows操作系统中提供的荧幕字体平滑工具，可以使字体更加漂亮。

主要针对LCD液晶显示器，可以提高文字的清晰度。

所以，这是一个文字工具，既然是一个工具，可以选择使用，也可以选择不用。

具体怎么选择，Windows系统给出了一个选项。

如下图所示：（Windows10 系统下ClearType的设置方法）

在Win系统中"设置-个性化-字体"中可以找到ClearType，上图右侧相关设置里有一项“调整ClearType文本”，就是它。

如果不喜欢使用也可以关闭，看自己的爱好。

ClearType可以把Windows应用中的字体进行一个美化或者锐化，使得字体看上去更加清晰和锐利。

具体效果实际在电脑上可以操作一下。

下面重点介绍一下，如何在VBA中打开和关闭ClearType效果。

语法介绍：如下图所示

此属性是Application对象下的，所以语法就是:

Application.AlwaysUserClearType=True '使用ClearType字体功能

Application.AlwaysUserClearType=False '不使用ClearType字体功能

很显然，这是一个十分简单的属性，看上去字母有点长，但应用并不复杂。

还有一个重点就是，无论在Windows中是否开启了ClearType，此属性设置为True，那么将在所有Micorosoft Office应用程序中使用ClearType。

也就是说，这个属性是高于Windows系统设置里面的，所以，在编程过程中，如果想要让自己的程序符合设计要求，那么在VBA中可以随心所欲设置ClearType。

上图为例，进行演示，开启或关闭ClearType。

代码如下：

Private Sub CommandButton1_Click()Application.AlwaysUseClearType = TrueEnd SubPrivate Sub CommandButton2_Click()Application.AlwaysUseClearType = FalseEnd Sub

严格来说，如果是初次接触VBA，此属性真的可有可无，因为对于一般的应用系统，会自动对系统文本进行一个设定，也就是系统设定，不需要人为干预。

如果对显示效果有十分苛刻要求，那么就要认真学习一下此属性以及Windows系统中ClearType设置方法。

经过几次调整，屏幕字体还是有很大变化，当然了，此属性的真正意义在于，使我们编制的程序界面有一个很友好的呈现，这是我们的目的。

欢迎关注、收藏

---END---