你目前正处于脱机状态,正在等待 Internet 重新连接

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 IfEnd 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。

Warning: This article has been translated automatically

属性

文章 ID:213469 - 上次审阅时间:06/11/2007 07:40:30 - 修订版本: 3.6

Microsoft Excel 2000 标准版

  • kbmt kbhowto kbinfo kbprogramming KB213469 KbMtzh
反馈