[分享]PowerPoint中实现对内嵌Excel图表的控制

wyanshan · 发表于 2006-11-28 15:44

chenjun老师，十分感谢。最近一直研读你的这个文章，还给我的宿舍演示了，哈哈。好啊，不过有一个问题。如果是采用引用，添加microsoft excel的库，那么程序该怎么写？我写到一半，不会了。

'Dim TheApp As Excel.Application
    'Dim TheBook As Excel.Workbook
    'Dim TheSheet As Excel.Worksheet
    'Set TheApp = CreateObject("excel.application")
    'Set TheBook = TheApp.Workbooks.Open(ActivePresentation.Slides(6).Shapes(2).Name)
    'Set TheSheet = TheBook.Sheets("sheet1")
    'MsgBox TheSheet.Range("b1")
这个程序是我写的，但是不对。因为红字的地方，open不开。如果是另外单独的文件，我知道写入excel文件地址就可以了，但是这个是ppt里面的对象。怎么样打开呢？

shyy · 发表于 2006-11-29 09:46

chenjun老师的“PowerPoint中实现对内嵌Excel图表的控制”对实际工作太有用了，首开先河！按原有数据排列，可以照葫芦划瓢基本能做，但我想将月份放在上面，A列中的项目很多，作成下表形式，请老师帮我将代码改一下！（因为对宏太不了解），十万分的感谢！

Spcwv6S2.rar (4.52 KB, 下载次数: 167)

shyy · 发表于 2006-12-1 08:11

请老师帮 54楼指点一下，感谢万分！

[此贴子已经被作者于2006-12-1 8:12:10编辑过]

dianadeng · 发表于 2007-1-24 16:07

受益匪浅

jacky1134 · 发表于 2007-2-6 14:55

學習中!

jacky1134 · 发表于 2007-3-1 12:47

謝謝

jacky1134 · 发表于 2007-3-5 17:02

chenjun老师,可以提供另一个用复选框的例子的程式嗎？如何增加新的復選框，數據是怎樣引用的？因為我更喜歡這個(更直觀，且運行速度較另一個快)，但添加新的復選框不像其它的正常運行，等待中!

jh_j126 · 发表于 2007-3-21 00:04

还是不懂,实际操作后还是不能用

能讲具体点吗?

redex · 发表于 2007-3-21 12:45

太棒了,谢谢版主拿出来分享!

saral · 发表于 2007-4-21 21:55

真是太感谢拉

		自动登录	找回密码
密码			免费注册