编程论坛 → VB6论坛

VB6.0如何操作ppt2007默认的图表

lemonday 发布于 2012-02-22 17:01， 815 次点击

各位大师好，VB6.0如何操作ppt2007默认的图表呢？望给个提示，谢谢

8 回复

wube2012-02-22 20:21

只有本站会员才能查看附件，请登录

2007应该是12

wube2012-02-22 20:25

Sample:

程序代码：

Sub Macro2()
ActiveWindow.Selection.SlideRange.Shapes.AddOLEObject(Left:=120, Top:=110, Width:=480, Height:=320, ClassName:="MSGraph.Chart", Link:=msoFalse).Select
    ActiveWindow.Selection.ShapeRange.OLEFormat.Activate
    With ActiveWindow.Selection.ShapeRange
        .Left = 120
        .Top = 109.875
        .Width = 480
        .Height = 320.25
    End With
End Sub

ActiveWindow要改成VB6的对象

lemonday2012-02-23 10:06

感谢【wube】，ppt2007默认的图表不是OLE对象。是直接通过EXCEL2007打开的。我下面的代码在ppt2003中是可以正常使用的，换成ppt2007就报错，如下图
Dim oGraph As Object
Set oGraph=PowerPoint.Presentation.Slides ("Slide1").Shapes("Chart1").OLEFormat.object

只有本站会员才能查看附件，请登录

意思是ppt2007图表不是OLE对象，好像要调用其他形式

wube2012-02-28 00:42

我是拿2003来录的源码～我没装2007你不能照抄～
应该2007也能录～录完去编辑器看源码～
再改对象名称～这样还不行吗？

wube2012-02-28 00:47

2003和2007的宏绝对不一样～我以前有使用VB6编生成Excel2007的档案的程式码～
当我改成2003后～还是能用～但是会有一大堆错误～可见得宏的使用方法绝对不一样～

Artless2012-02-28 01:14

以下是引用wube在2012-2-28 00:42:30的发言：

我是拿2003来录的源码～我没装2007你不能照抄～
应该2007也能录～录完去编辑器看源码～
再改对象名称～这样还不行吗？

lemonday2012-03-01 11:16

ppt2007把录制宏给去掉了。
这么长时间没有找到答案，先结贴了，谢谢各位。

wube2012-03-01 20:04

那只好按部就班了～
死命查MSDN～

只有本站会员才能查看附件，请登录

或参考别人写好的宏～
只用过Excel2007～
不知道PPT移除了～