使用Excel.ApplicationProperties操作UI属性.docx

e800，国内最具活力的IT门户网站。【e800编译】此示例说明了在Microsoft Excel 2010工作簿中如何处理各种UI的性能。此代码段是Office 2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C中（在Visual Studio 2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。Microsoft Office 2010提供了你所需要的工具来创建功能强大的应用程序。Microsoft Visual Basic Application（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。实例代码在Excel 2010中新建工作簿，复制这些代码到Sheet1类模块。将光标置于TestApplicationProperties中，然后按F8单步执行代码。如果将并列放置VBA和Excel窗口，效果会更加明显。Sub TestApplicationProperties()Dim saveDisplayFormulaAutoComplete As BooleanDim saveShowDevTools As BooleanDim saveShowMenuFloaties As BooleanDim saveShowSelectionFloaties As BooleanDim saveDisplayDocumentInformationPanel As BooleanDim saveEnableLivePreview As BooleanDim saveFormulaBarHeight As IntegerWith Application Preserve the current state of things, so the code can put them back when done.saveDisplayFormulaAutoComplete = .DisplayFormulaAutoCompletesaveShowDevTools = .ShowDevToolssaveShowMenuFloaties = .ShowMenuFloatiessaveShowSelectionFloaties = .ShowMenuFloatiessaveDisplayDocumentInformationPanel = .DisplayDocumentInformationPanelsaveEnableLivePreview = .EnableLivePreviewsaveWarnOnFunctionNameConflict = .WarnOnFunctionNameConflictsaveFormulaBarHeight = .FormulaBarHeight Try out the various features added in Excel 2007:.DisplayFormulaAutoComplete = True In Excel, select cell A1, and then in the formula bar, start entering a formula like =RandBetween(1, 100), and watch the help you get in a formula drop-down list as you type. Execute the next line of code, and repeat the test: This time you wont see the dropdown:.DisplayFormulaAutoComplete = False.ShowDevTools = True In Excel, note that the Development Ribbon item now is visible. Execute the next line, and note that its now hidden:.ShowDevTools = False.ShowMenuFloaties = False In Excel, right-click in a cell. Note the floatie menu that appears. Execute the next line, and verify that you no longer see that menu when you right-click. Note that the boolean value is the opposite of what you would expect. If the ShowMenuFloaties property is True, the floaties DO NOT appear; if False, they do.ShowMenuFloaties = True.ShowSelectionFloaties = False Enter text into a cell, and then select a few characters. You see a floatie menu with formatting options. Then execute the next line, and verify that the same actions do not display the floatie menu. Note that the boolean value is the opposite of what you would expect. If the ShowSelectionFloaties property is True, the floaties DO NOT appear; if False, they do.ShowSelectionFloaties = True.DisplayDocumentInformationPanel = True After executing the previous line of code, you see the document information panel. Execute the next line to hide this panel:.DisplayDocumentInformationPanel = False.EnableLivePreview = False After executing the previous line of code, enter some text into a cell, and select a font. As you scroll through the font list, the formatting wont update as you select fonts. When you select a font and dismiss the menu, the font will change in the cell. Execute the following line, and try again-now the font updates as you scroll through the font menu. The same concept applies to all other formatting changes.EnableLivePreview = True.FormulaBarHeight = 2 After executing the previous line of code, the formula bar height should be changed. Execute the following line to set it to 1, the default height.FormulaBarHeight = 1 Put things back the way they were originally.DisplayFormulaAutoComplete = saveDisplayFormulaAutoComplete.ShowDevTools = saveShowDevTools.ShowMenuFloaties = saveShowMenuFloaties.ShowMenuFloaties =