XL2000: Visual Basic 过程,以便更改标准字体

文章翻译 文章翻译
文章编号: 213469 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

本文包含有关可用于更改标准字体在 Excel 中的应用程序过程 Microsoft Visual Basic 示例。如果您正在创建一个自定义程序,并且您希望能够以编程方式更改正文样式字体,此过程可能很有用。

您是否在启动 Excel 时自动运行此过程可以使它成为 Auto_Open 宏,并将其放在 Personal.xls 文件中。

示例宏

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证,其中包括但不是限于对适销性和/或针对特定用途的适用性的暗示的担保。本文假定您熟悉所演示的编程语言和工具用于创建和调试过程。Microsoft 支持专业人员可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您特定需要。
如果有限编程体验您可能需要联系 Microsoft 认证合作伙伴或 Microsoft 咨询服务。有关更多的信息请访问以下 Microsoft 网站:

Microsoft 认证合作伙伴-https://partner.microsoft.com/global/30000104

Microsoft 咨询服务-http://support.microsoft.com/gp/advisoryservice

有关可用的支持选项和有关如何与 Microsoft 联系的详细信息,请访问下面的 Microsoft 网站: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS下面的宏的运行时适用的 Auto_Open 和 Auto_Close subprocedures。每次您切换到另一个窗口或打开新简介册时,是运行 Change_Font 子过程。该子例程中包含一个 MsgBox 对话框,提示用户更改简介册标准字体。如果用户在 $ 此警报消息中单击 确定,将显示 字体 对话框允许用户指定的新字体。
'Runs the Change_Font sub procedure whenever you open a new
'window or switch to another book.
Sub Auto_Open()
    Application.OnWindow = "Change_Font"
End Sub

'This procedure will run each time a new window is displayed.
Sub Change_Font()
    'If the active sheet is a worksheet or macro sheet then
    'ask the user if they want to change the Normal style font.
    If TypeName(ActiveSheet) = "Worksheet" Then
       response = MsgBox("Do you want to change the Normal style?", 1)
       'If user chooses Cancel, then stop the procedure.
       If response = vbCancel Then End
       'If user chooses OK, then display the Fonts dialog box.
       Application.Dialogs(xlDialogStandardFont).Show
    End If
End Sub

'Discontinues the OnWindow function when the book containing the
'subroutines is closed.
Sub Auto_Close()
        Application.OnWindow = ""
End Sub
				

更多信息

若要更改标准字体的其他方法包括:
  • 工具 菜单上单击 选项,然后单击 常规 选项卡。

    通过从下拉列表中选择字体和大小设置标准字体。

    -或者-
  • 若要将表样式的字体在 格式 菜单上单击 样式,然后单击 样式 对话框中的 修改

参考

有关在 Personal.xls 文件的详细信息,请参阅页 22-23 的 Microsoft Excel 5.0 Visual Basic 用户指南。

有关创建自动过程的详细信息请参阅 Microsoft Excel 5.0 Visual Basic 用户指南页 266。

属性

文章编号: 213469 - 最后修改: 2007年6月11日 - 修订: 3.6
这篇文章中的信息适用于:
  • Microsoft Excel 2000 标准版
关键字:?
kbmt kbhowto kbinfo kbprogramming KB213469 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 213469
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com