Dim PPT As New Microsoft.Office.Interop.PowerPoint.Application()
'创建PPT应用
Dim MyPres As Microsoft.Office.Interop.PowerPoint.Presentation = Nothing
'PPT应用的实例
Dim MySlide As Microsoft.Office.Interop.PowerPoint.Slide = Nothing 'PPT中的幻灯片
Dim k as integer = 5 ' 设置添加的页数
For i As Integer = 1 To k
MyPres = PPT.Presentations.Open("D:\test.pptx", 0,0,0)
'此处将一个PPT实例给了MyPres
MySlide = MyPres.Slides.Add(1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank)
'像PPT实例中,添加一个空白页,位置是"第一页"
MySlide.Shapes.AddPicture("D:\" & i & ".jpg", 1, 1, 27F, 24F, 665F, 450F)
Next
PPT.quit
output.show("完成")
如果我想根据 设定的 k 页数来 添加,该如何改呢?我将 1 改成 2 或者其他就会报错了,而且每次打开仅显示一张图片,关闭后再打开就显示第2张图片,直到最后 图片就没了。
[此贴子已经被作者于2017/10/17 0:21:00编辑过]