Access批量更改所有窗体控件的字体大小
在程序设计中,会根据要求设置多个窗体供客户操作使用。窗体控件也会按要求设置相关样式。
但是在后续的设计的美观,或者客户需求的改变,往往样式都需要微调。比如字体大小。如果逐个窗体去修改。这无疑是一项艰辛的工作。如何批量更改窗体控件的字体大小呢?
如原程序,控件字体为8号
在模块中创建以下代码
Function frmFontSize(intFontSize As Integer) On Error Resume Next Dim obj As AccessObject, dbs As Object Dim ctl As Control Set dbs = Application.CurrentProject For Each obj In dbs.AllForms DoCmd.OpenForm obj.Name, acDesign, , , , acHidden For Each ctl In Forms(obj.Name).Controls '循环更改窗体控件的字体大小 ctl.fontsize = intFontSize Next DoCmd.Close acForm, obj.Name, acSaveYes Next End Function
调用改代码,设置控件字体为12
frmFontSize(12)
运行效果,如图所示
更多Access源码技巧,请关注Office中国论坛http://www.office-cn.net
请先 后发表评论~