图表初步了解（Chart）

1，  图表（Chart）的位置

a)         作为嵌入对象放在工作表中，一个工作表（Sheet）中可以存放多个图表（Chart）;

b)         放在一个单独的图表工作表中，一个图表工作表通常包含一个图表（Chart）

2，  Chart对象模型

a)         对于嵌入式图表

Application->Workbook->WorkSheet->ChartObject->Chart

b)         对于图表工作表

Application->Workbook->Chart

注：图表工作表本质上是一个Chart，而且不包含ChartObject对象。也就是说,嵌入式图表的父对象是ChartObject对象，而一个图表工作表的父对象是Workbook对象。

ChartObject对象表示工作表中的嵌入图表，它的作用是作为Chart对象的容器，也就是说用它来装Chart对象。所以控制嵌入图表的外观和尺寸需要用ChartObject的属性和方法，而图表内部的控制则需要用Chart对象的属性和方法。

3,创建图表（Chart）

切换按钮用于在两种状态之间选择，例如当按下某切换按钮时开启或关闭某功能。

1、toggleButton元素必需的属性

切换按钮需要下表1所列的id属性之一。

表1：toggleButton元素必需的属性

切换按钮也需要表2所列出的onAction回调。

表2：toggleButton元素必需的回调

2、带有回调签名的可选的静态属性和动态属性

使用切换按钮时，可以使用下表3列出的任一insert属性。

表3：toggleButton元素可选的insert属性

也可以提供下表4所列的任何或所有的属性。

表4：toggleButton元素可选的属性和回调

3、toggleButton元素允许的子对象

toggleButton控件不支持任何子对象。

4、toggleButton元素的父对象

在下列任何控件内都能放置toggleButton控件：

n         box

n         buttonGroup

n         dynamicMenu

n         group

n         menu

n         officeMenu

n         splitButton

5、使用内置的切换按钮控件

在功能区中使用了很多内置的切换按钮控件。下面的示例在自定义选项卡中添加四个内置的切换按钮。

（1）创建一个新的.xlsx文件，并将其保存为Excel Built In toggleButton Example.xlsx。

（2）关闭该文件并在CustomUI Editor中打开。

（3）输入下列XML代码：

<customUI xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>

<ribbon startFromScratch=“false“>

<tabs>

<tab id=“rxtabCustom“

label=“My Tools“

insertBeforeMso=“TabHome“>

<group id=“rxgrpFormats“

label=“Formatting“>

<toggleButton idMso=“Bold“/>

<toggleButton idMso=“Italic“/>

<toggleButton idMso=“Underline“/>

<toggleButton idMso=“UnderlineDouble“/>

</group>

</tab>

</tabs>

</ribbon>

</customUI>

（4）保存并关闭CustomUI Editor。在Excel中打开工作簿，如下图所示。

6、创建自定义切换按钮控件

下面的示例再次使用在细品RibbonX(18)中使用的预付费用计划示例，我们将添加自定义视图切换功能，这样允许用户显示或隐藏“Expense To”列，如下图所示。

在Excel中，单击“视图—自定义视图”，选择“添加”并命名为“cvw_Show”。该视图用于返回工作表的全视图，显示所有列。关闭“视图管理器”对话框。

接着，设置隐藏“Expense To”列的第二个视图。隐藏F列，重新打开“视图管理器”对话框，添加一个名为“cvw_Hide”的新的自定义视图。关闭“视图管理器”对话框。

现在，录制切换视图的宏。单击“录制宏”按钮，开始录制：

（1）单击“视图”选项卡。

（2）单击“自定义视图”。

（3）选择cvw_Hide视图并选择“显示”。

（4）再次单击“自定义视图”。

（5）选择cvw_Show视图并选择“显示”。

（6）停止录制。

转到VBE中，查看录制的代码：

ActiveWorkbook.CustomViews(”cvw_Hide”).Show

ActiveWorkbook.CustomViews(”cvw_Show”).Show

接下来，让我们设置功能区中所自定义的切换按钮。保存Excel文件，在CustomUI Editor中打开该文件，编写下列XML代码：

<customUI xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>

<ribbon startFromScratch=“false“>

<tabs>

<tab id=“DemoTab“

label=“Demo“

insertBeforeMso=“TabHome“>

<group id=“DemoGroup“

label=“Demo Group“>

<button id=“rxbtnRollForward“

label=“Roll Forward“

imageMso=“CreateReportFromWizard“

size=“large“

onAction=“rxbtnRollForward_Click“/>

<toggleButton id=“rxtglHideExpense“

label=“Hide Expenses“

imageMso=“FieldList“

size=“large“

onAction=“rxtglHideExpense_Click“/>

</group>

</tab>

</tabs>

</ribbon>

</customUI>

生成回调签名并复制，保存并关闭文件。

在Excel中重新打开该文件，转到VBE中，粘贴回调签名代码。

下面，修改回调以满足需要，代码如下：

‘rxtglHideExpense onAction回调

Sub rxtglHideExpense_Click(control As IRibbonControl, pressed As Boolean)

Select Case pressed

Case True

ActiveWorkbook.CustomViews(”cvw_Hide”).Show

Case False

ActiveWorkbook.CustomViews(”cvw_Show”).Show

End Select

End Sub

好了！现在可以转到Excel界面中查看切换按钮的功能了。

然而，如果您隐藏了F列，保存并关闭工作簿，再打开该工作簿时，切换按钮并不会高亮选中，并且需要单击两次才能实现切换功能。此时，可以使用下列方式解决：

n         在Workbook_Open过程中将cvw_Show视图设置为活动的。

n         设置getPressed回调代码测试当工作簿打开时哪个视图为活动视图，然后将其状态返回到切换按钮。

下面再举一个示例。

本示例使用一个切换按钮来切换分页显示。如下面的XML代码所示，在“视图”选项卡中自定义一个组并放置自定义的切换按钮：

<customUI onLoad=“rxIRibbonUI_onLoad“xmlns=“http://schemas.microsoft.com/office/2006/01/customui“>

<ribbon startFromScratch=“false“>

<tabs>

<tab idMso=“TabView“>

<group id=“rxgrpStyleInsp“

label=“Custom Options“

insertBeforeMso=“GroupZoom“>

<toggleButton id=“rxtglPageBreaks“

label=“Display PageBreaks“

getPressed=“rxtglPageBreaks_getPressed“

getImage=“rxtglPageBreaks_getImage“

onAction=“rxtglPageBreaks_click“/>

</group>

</tab>

</tabs>

</ribbon>

</customUI>

生成回调签名，并将其复制。关闭CustomUI Editor。

在Excel中打开该工作簿，转到VBE，粘贴回调签名到标准模块中，并输写代码：

Private ribbonUI As IRibbonUI

‘customUI.onLoad回调

Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)

Set ribbonUI = ribbon

End Sub

‘rxtglPageBreaks getPressed回调

Sub rxtglPageBreaks_getPressed(control As IRibbonControl, ByRef returnedVal)

returnedVal = ActiveSheet.DisplayPageBreaks

End Sub

‘rxtglPageBreaks getImage回调

Sub rxtglPageBreaks_getImage(control As IRibbonControl, ByRef returnedVal)

Select Case ActiveSheet.DisplayPageBreaks

Case True

returnedVal = “SignatureInsertMenu”

Case False

returnedVal = “DesignMode”

End Select

End Sub

‘rxtglPageBreaks onAction回调

Sub rxtglPageBreaks_click(control As IRibbonControl, pressed As Boolean)

ActiveSheet.DisplayPageBreaks = pressed

ribbonUI.InvalidateControl “rxtglPicHold”

End Sub

保存该工作簿并关闭。重新打开该工作簿，此时可以测试该切换按钮的功能了。

下面介绍修改QAT中宏按钮或内置按钮图标的方法。
如下图所示，在QAT中添加一个宏。

Excel将QAT的设置保存在名为Excel.qat的文件中，该文件位于：

C:\Documents and Settings\\Local Settings\Application Data\Microsoft\Office\Excel.qat

注意，如果没有自定义QAT，那么该文件不存在。
现在，要修改该宏的图标，虽然可以在自定义选项中进行修改，但只是修改宏按钮的图像，并且只能修改为内置的图标。使用下面的方法可以修改内置按钮或宏按钮的图标。
在记事本或任何XML编辑器中打开Excel.qat文件，将看到下列内容：

<mso:customUI xmlns:x1="http://schemas.microsoft.com/office/2006/01/customui/macro" xmlns:mso="http://schemas.microsoft.com/office/2006/01/customui"><mso:ribbon><mso:qat><mso:sharedControls> <mso:control idQ="mso:FileNewDefault" visible="false"/><mso:control idQ="mso:FileOpen" visible="false"/><mso:control idQ="mso:FileSave" visible="true"/><mso:control idQ="mso:FileSendAsAttachment" visible="false"/><mso:control idQ="mso:FilePrintQuick" visible="false"/><mso:control idQ="mso:FilePrintPreview" visible="false"/><mso:control idQ="mso:Spelling" visible="false"/><mso:control idQ="mso:Undo" visible="true"/><mso:control idQ="mso:Redo" visible="true"/><mso:control idQ="mso:SortAscendingExcel" visible="false"/><mso:control idQ="mso:SortDescendingExcel" visible="false"/><mso:button idQ="x1:C:_Documents_and_Settings_Administrator_桌面_ChangeAQTImageSample.xlsm_MyMacro_1" visible="true" label="MyMacro" onAction="C:\Documents and Settings\Administrator\桌面\ChangeAQTImageSample.xlsm!MyMacro" imageMso="ListMacros"/> </mso:sharedControls></mso:qat></mso:ribbon></mso:customUI>

其中，中间部分的前11行是QAT中默认的按钮，可以通过下拉QAT右侧的箭头看到，而最后一行（即下面所示的）是我们添加的按钮。

<mso:button idQ="x1:C:_Documents_and_Settings_Administrator_桌面_ChangeAQTImageSample.xlsm_MyMacro_1" visible="true" label="MyMacro" onAction="C:\Documents and Settings\Administrator\桌面\ChangeAQTImageSample.xlsm!MyMacro" imageMso="ListMacros"/>

将imageMso=”ListMacros”修改为imageMso=”M”，即可以修改该按钮的图像。

<mso:button idQ="x1:C:_Documents_and_Settings_Administrator_桌面_ChangeAQTImageSample.xlsm_MyMacro_1" visible="true" label="MyMacro" onAction="C:\Documents and Settings\Administrator\桌面\ChangeAQTImageSample.xlsm!MyMacro" imageMso="M"/>

修改后如下图所示。

若要修改内置按钮的图像，同样修改为imageMso=”M”或者其他图像。
当然，你也可以将文件名更改为压缩文件后缀，然后解压缩，修改相应的qat代码来修改按钮的图像。

自己做主的兼职网------威客网