请教同志们帮一下（vba）
想请教一下大家，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
运行这段代码，结果是正常（播放一段影片），但会自动到最后一张幻灯片，中间幻灯片我还没运行呢，我想把它运行到第二张就停止，然后再继续下去，同志们，可以吗，请求大家帮忙，谢谢了。 请将你的PPT作品及素材打包传上来，大家才好帮你修改已达到预期效果。从代码上看，你插入的是FLV文件，好像还用到了CommonDialog控件。 动感大侠，找的就是你啊，其实短消息我发给你了，知道你很在行vba，可能附件有点大，所以通过下面地址麻烦下载一下：
请你运行一下，虽然成功了，但会自动跳到最后一张，中间还没播放呢，肯定是代码问题，请求你鉴定一下，谢了 还有一点要问的：假如有10张，“主程序”在第一张，运行后，在最后一张插入新幻灯片，并且播放影片，能不能就在第二张插入，并且播放影片，然后照常运行原第二张幻灯片，然后一直运行至结尾。 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 大侠，我想在第二张幻灯片插入的同时，赋于名称，应如何写呢
下面我用很多函数写了一下，都没有好，请帮一下，谢谢
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 = 请看影片!
上面几种都不行啊 自己弄好了，谢谢大家 这个东西不是很懂,只能支持一下了 高手！！！！！！
页:
[1]