[已解决]请大家帮忙修改一下此小程序

romat

编程环境是PPT, 希望可以选择PPT里的组合框的值，excel的图表会选择相应的数据源。
路径请根据需要修改      运行到 .SetSourceData Source:=rng 就一直报错  不知道是什么原因，望高手解答。
Private Sub CommandButton1_Click()

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim strWbPath As String
Dim xlchart As Object
Dim rng As Object, rng1 As Object

Set xlApp = CreateObject("Excel.Application")
strWbPath = "C:\Users\tang\Desktop\New Folder (3)\Oct HC report new.xls"
Set xlBook = xlApp.Workbooks.Open(strWbPath)
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets("1. HC by Function CRM (2)")
Set rng = xlSheet.Range("A60:N60,A61:N61,A68:N68")
Set rng1 = xlSheet.Range("a60:n60,a62:n62,a69:n69")

Set xlchart = xlSheet.ChartObjects("Chart 7")

Select Case ComboBox1.Value
    Case "Product"
       With xlchart
        .SetSourceData Source:=rng
        End With


    Case "Division"
       With xlchart
        .SetSourceData Source:=rng1
        End With

End Select

End Sub

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-12-1 21:12

明白了，得指定一下程序才行
With xlchart
          .Select
        xlApp.ActiveChart.SetSourceData Source:=rng

跳转到最佳答案楼层

romat

有高手可以解决吗？ 谢谢各位啦

兰色幻想

修改图表前要选取它     
  With xlchart
          .Select
          ActiveChart.SetSourceData Source:=Range("C69:E72")

兰色幻想

另外，你最好改成相对路径，这样别人运行不至于还要改代码
ActivePresentation.Path ‘返回当前PPT文件所在路径

romat

回兰版主 还是不行啊  运行到.SetSourceData Source:=rng1的时候 还是报错  对象不支持此属性或方法

romat

已经修改过了~~~~~~

romat

打错了  报错是 方法作用于chart时失败

兰色幻想

明白了，得指定一下程序才行
With xlchart
          .Select
        xlApp.ActiveChart.SetSourceData Source:=rng

romat

多谢兰版主。。。

romat

还有个问题请教兰版主   我将此图选择性黏贴到PPT里了  怎么用VBA实现 只要EXCEL的图一改变，PPT里的图就自动更新呀  谢谢