请教同志们帮一下（vba）

i6movie 发表于: 2009-3-25 17:31 来源: 扑奔PPT网

想请教一下大家，ppt中的vba代码，里面有这么一段：
ActivePresentation.Slides.Add ActivePresentation.Slides.Count + 1, ppLayoutBlank
Set o = ActivePresentation.Slides(ActivePresentation.Slides.Count).Shapes.AddOLEObject(Left:=30, Top:=30, Width:=50, Height:=50, ClassName:="ShockwaveFlash.ShockwaveFlash.1", Link:=msoFalse).OLEFormat.Object
o.Movie = "flv.swf?a=" & Left(CommonDialog1.FileName, InStr(CommonDialog1.FileName, ".flv") - 1)
o.Playing = True
SlideShowWindows(Index:=1).View.GotoSlide ActivePresentation.Slides.Count
运行这段代码，结果是正常（播放一段影片），但会自动到最后一张幻灯片，中间幻灯片我还没运行呢，我想把它运行到第二张就停止，然后再继续下去，同志们，可以吗，请求大家帮忙，谢谢了。

[ 本帖最后由 i6movie 于 2009-3-25 17:32 编辑 ]

大家对请教同志们帮一下（vba）的评论

laose 发表于 2009-3-26 10:44:34: 请将你的PPT作品及素材打包传上来，大家才好帮你修改已达到预期效果。从代码上看，你插入的是FLV文件，好像还用到了CommonDialog控件。
i6movie 发表于 2009-3-26 12:36:22: 动感大侠，找的就是你啊，其实短消息我发给你了，知道你很在行vba，可能附件有点大，所以通过下面地址麻烦下载一下：

请你运行一下，虽然成功了，但会自动跳到最后一张，中间还没播放呢，肯定是代码问题，请求你鉴定一下，谢了
i6movie 发表于 2009-3-26 12:54:33: 还有一点要问的：假如有10张，“主程序”在第一张，运行后，在最后一张插入新幻灯片，并且播放影片，能不能就在第二张插入，并且播放影片，然后照常运行原第二张幻灯片，然后一直运行至结尾。
laose 发表于 2009-3-27 01:41:58: Private Sub CommandButton1_Click()

With CommonDialog1
.Filter = "All files|*.*|FLVÊÓÆµÎÄ¼þ|*.flv" ' (看原代码，这里是乱码）
.ShowOpen
End With
ActivePresentation.Slides.Add 2, ppLayoutBlank
Set o = ActivePresentation.Slides(2).Shapes.AddOLEObject(Left:=200, Top:=140, Width:=320, Height:=240, ClassName:="ShockwaveFlash.ShockwaveFlash.1", Link:=msoFalse).OLEFormat.Object
o.Movie = "flv.swf?a=" & Left(CommonDialog1.FileName, InStr(CommonDialog1.FileName, ".flv") - 1)
o.Playing = True
SlideShowWindows(Index:=1).View.GotoSlide 2

End Sub

[ 本帖最后由 laose 于 2009-3-27 07:42 编辑 ]
i6movie 发表于 2009-3-27 15:23:27: 大侠，我想在第二张幻灯片插入的同时，赋于名称，应如何写呢
下面我用很多函数写了一下，都没有好，请帮一下，谢谢
ActivePresentation.Slides.Add 2, ppLayoutitleonly
1、With ActiveWindow.Selection.TextRange
.Text = "请看影片！"
2、ActivePresentation.Slides("请看影片！").Layout = ppLayoutTitle
3、With .Slides(2).Shapes.Title.TextFrame.TextRange
.Text = "请看影片!"
上面几种都不行啊

[ 本帖最后由 i6movie 于 2009-3-27 16:39 编辑 ]
i6movie 发表于 2009-3-27 21:14:43: 自己弄好了，谢谢大家
melink 发表于 2009-5-11 14:50:23: 这个东西不是很懂,只能支持一下了
xwjchyj 发表于 2009-5-31 12:19:42: 高手！！！！！！