Office中国论坛/Access中国论坛

标题: (分享)调用隐藏的字体对话框修改E系统字体 [打印本页]

作者: tanhong 时间: 2008-6-25 01:44
标题: (分享)调用隐藏的字体对话框修改E系统字体
在EXCEL中我们可以通过格式对话框的字体设置来调整表格中的默认字体，但这不能修改包括系统字体,如：行列标在内的字体。
记得前不久也有网友问过如何修改行列标的字体的问题。
1、我们通常的办法：点菜单 “工具”——“选项”——在选项对话框中点“常规”—— 在该页中调整字体。这个虽然能改变包括行列标在内字体，但只对重新建立EXCEL工作簿才起作用，并不能立竿见影的发生变化，而对于原存在的EXCEL也不起作用。
2、我们可以通过VBA话句调用一个隐藏的字体调整对话框来立竿见影的修改当前的EXCEL窗口系统字体（包括行列标的字体）。

代码很简单，如下：

Application.Dialogs(xlDialogStandardFont).Show

效果图：
[attach]30723[/attach]

实例样本：[attach]30724[/attach]

[ 本帖最后由 tanhong 于 2008-6-25 20:00 编辑 ]

作者: tmtony 时间: 2008-6-25 07:53
简单而很实用的方法!!

作者: tanhong 时间: 2008-6-25 08:58
[:50] 谢谢老大的支持!!!

作者: brother13 时间: 2008-12-5 11:38
太感谢了特意注册表示感谢在网上找了好久

作者: 余方方 时间: 2011-3-7 14:46
谢谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)