Question

PPT图表中添加组合框或列表框空间如何引用内置excel数据

我在ppt里插入图表，内置了一组excel数据，默认sheet1，数据区间A1：E6，其中A列是变量列，我想通过插入组合框控件，在ppt里可以变化A列不同的条件使得我ppt的图表可以随着条件变更而变化，控件需要通过vb编程，这个程序怎么写呢？
另外，我还有些其他的疑问：
1、我所理解的组合框控件是有3个项目需要设置的：控件值的区域、控件值输出的地址、控件值的长度，这个我在excel表中可以直接通过属性来选择设置，但是到了PPT中，需要编程，最近查了很多有关这个编程资料来看，看程序似乎知道上面3个的意思，可是自己照着写出来的程序又不能用，所以想知道是怎么回事？
2、像这样的跨文件的控件值设置，既然可以在PPT里运行了，还可以在非excel表的其他类型的文件中使用吗?比如word？要如何设置？程序上需要改动什么吗？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

Option Explicit

'声明公共变量
Dim Wb As Object, Sh As Object

Private Sub ComboBox1_Click()
    Set Wb = Me.Shapes(1).OLEFormat.Object 'Me表示正在播放的Slide
    Set Sh = Wb.worksheets("sheet1")
    Sh.Range("A10") = Me.ComboBox1.Value
End Sub

Private Sub ComboBox1_GotFocus()
Dim i As Long
    Me.ComboBox1.Clear
    Set Wb = Me.Shapes(1).OLEFormat.Object 'Me表示正在播放的Slide
    Set Sh = Wb.worksheets("sheet1")
    For i = 4 To 8
        Me.ComboBox1.AddItem Sh.Range("A" & i).Value
    Next i
End Sub

excel中还要设置，如有问题请邮箱联系我。starsdlg@hotmail.com

追问

试着用了下，还是不能正确运行，上面的问题我解释下：

我的PPT中插入图表（柱形图）的数据区域上图所示的A1：E6，A列为条件列，条件取数=G1，G1的序列值是G2：G6，PPT中添加的组合框控件值也是G2：G6，所以想设定G1为控件的输出值，蓝色区域（C2：E6）是图表的数据值，设置了公式A列条件变化，蓝色区域的值也变化，于是对应的图表也随着数据值变化而变化。

请问这个程序要怎么写？

追答

邮件联系我吧
把你的表发我