利用PPT进行图表演示时，操作者可能会与图表交互，例如输入数据并预测产品的生产状况等，但这种情况下需要“开发工具”的控制。 通过组合几种控件和几种VBA码，可以简单地实现上述的交互效果(图1 )。
首先，创建一个新的空白幻灯片，设置所需的背景颜色，选择“插入”选项卡，单击对象，在弹出窗口中选择“新建”，然后选择“Microsoft Excel Chart”作为对象类型在显示的excel编辑窗口中，也可以单击数据窗口" Sheet1"根据需要更改数据、删除不需要的数据、增加需要的数据或使用公式。 例如，计划产量为50，A厂产量为计划产量*50%，B厂产量为计划产量减去A厂产量(图2 )。 单击图表窗口" Chart "根据需要设置图表类型(如条形图)并添加数据标签。
单击页边距返回PPT窗口，然后将图表拖动到适当的位置&； amp； 放下。 选择“开发工具”选项卡(如果没有，请选择“文件-选项-定制功能区”以添加)，在控件中选择所需的控件，按住鼠标左键，然后拖动到幻灯片上的相应位置右键单击滚动条，然后选择“属性表单”。 在弹出窗口中，通过BackColor、ForeColor设置滚动条的背景色、前景色，通过LargeChange、SmallChange设置最大、最小的变化量，通过Max、Min设置滚动条的最大、最小值同样，文本框的属性也是这样设定的。 使用文本框对各控件添加标签进行说明(图3 )。
然后，选择“开发工具”标签，单击" Visual Basic "并在出现的VBA代码编辑窗口中输入以下代码(图4 )。
Private Sub ScrollBar1_Change (
textbox2. value=scroll bar1. value & amp； #039； %&； #039；
textbox1. value=50 * (1scroll bar1. value/100 ) ) ) ) ) ) )。
setWB=me.shapes(1).OLEFormat.Object
setsh=WB.worksheets(&； #039； 工作表1 & amp； #039； ) ) ) ) ) ) ) ) ) ) )。
sh.range(B2 )=TextBox1.Value
结束子
最后，保存幻灯片时，将类型设置为支持宏的演示文稿，扩展名为pptm。 这样，在播放幻灯片时拖动滚动条，文本框控件中的值、图表等就会正确地联动。
