ppt里excel图表联动vba设置,ppt图表 关联excel数据

　　当使用PPT进行图表演示时，操作员可以与图表进行交互，例如，通过输入数据来预测产品的生产情况等。然后需要使用“开发工具”中的控件。用几个控件和几个VBA代码，就可以轻松实现上面的交互联动效果(图1)。

　　首先新建一张空白幻灯片，设置好所需的背景色，选择“插入”选项卡，点击对象，在弹出的窗口中选择“新建”，在对象类型处选择“Microsoft Excel图表”，确认；在弹出的Excel编辑窗口中，点击数据窗口“Sheet1”，根据需要修改数据，删除不需要的数据，添加需要的数据，或者使用公式。例如，计划产量为50，工厂A的产量为计划产量*50%，工厂B的产量为计划产量减去工厂A的产量(图2)。然后点击图表窗口“图表”，根据需要设置图表类型，如柱形图，并添加数据标签。

　　在空白处单击，返回PPT窗口，将图表拖放到适当的位置。选择“开发工具”选项卡(如果没有，可以选择“文件选项自定义功能区”添加)，在控件处选择想要的控件，按住鼠标左键，在幻灯片的适当位置拖动，画出想要的控件(比如一个滚动条和两个文本框)；右键单击滚动条，选择“属性表”。在弹出窗口中，通过BackColor和ForeColor设置滚动条的背景色和前景色，通过LargeChange和SmallChange设置最大和最小变化，通过Max和Min设置滚动条的最大和最小值。同样，文本框的属性也是这样设置的。使用文本框来标记每个控件(图3)。

　　接下来，选择“开发工具”选项卡，单击“Visual Basic ”,并在出现的VBA代码编辑窗口中输入以下代码(图4)。

　　私有子滚动条1_Change()

　　文本框2。值=滚动条1。值“%”

　　文本框1。值=50 * (1滚动条1。价值/100)

　　设置wb=Me。Shapes(1).OLEFormat.Object

　　Set sh=wb.worksheets(sheet1 )

　　先令Range(B2)=TextBox1。价值

　　末端接头

　　最后，在保存幻灯片放映时，将类型设置为启用宏的演示文稿，扩展名为pptm。这样，当幻灯片播放时，拖动滚动条、数值、图表等。文本框中的控件会有相应的联动效果。