如何用VBA将EXCEL数据导入到PPT中

szzc

以下代码的问题在哪？老是报错说，说选择对象
Sub 宏1()
Dim pptApp As PowerPoint.Application
Dim pptPresen As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide
Dim strTemp As String

On Error GoTo errHandle
strTemp = "C:\Users\z305204\Desktop" & "\演示文稿1.potx"
Set pptApp = New PowerPoint.Application
Set pptPresen = pptApp.Presentations.Add(msoTrue)
pptApp.Visible = True

pptApp.Presentations.Open "C:\Users\z305204\Desktop\" & "演示文稿1.potx"
'pptPresen.ApplyTemplate filename:=strTemp
Set pptSlide = ActivePresentation.Slides.AddSlide(1, ppLayoutAndTitle)
With pptSlide.Shapes.Title.TextFrame.TextRange.Text = Range("B2")
End With
With pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = Range("B3")

End With
Set pptSlide = pptPresen.Slides.AddSlide(1, ppLayoutAndText)
With pptSlide.Shapes.Placeholders(1).TextFrame.TextRange.Text = Range("B4")
End With
With pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = Range("B5")

End With
Set pptSlide = pptPresen.Slides.AddSlide(1, ppLayoutAndText)
With pptSlide.Shapes.Placeholders(1).TextFrame.TextRange.Text = Range("B6")
End With
With pptSlide.Shapes.Placeholders(2).TextFrame.TextRange.Text = Range("B7")

End With
pptPresen.SaveAs filename:="G:\test.pptx"
pptPresen.Close
pptApp.Quit
errExit:

Set pptSlide = Nothing
Set pptPresen = Nothing
Set pptApp = Nothing
Exit Sub
errHandle:
MsgBox Err.Description
Resume errExit
End Sub

szzc

别沉啊，江湖救急

wudixin96

Dim pptApp As PowerPoint.Application
Dim pptPresen As PowerPoint.Presentation
Dim pptSlide As PowerPoint.Slide 这几个先引用了么？

wudixin96

一般个人是建议用PPT里写VBA，去调用EXCEL。

szzc

wudixin96 发表于 2015-5-27 13:54
Dim pptApp As PowerPoint.Application
Dim pptPresen As PowerPoint.Presentation
Dim pptSlide As Powe ...

引用了，但是老是显示选择对象

szzc

wudixin96 发表于 2015-5-27 13:57
一般个人是建议用PPT里写VBA，去调用EXCEL。

谢谢，PPT上写VBA确实更容易，已完成数据导入的代码。请问，您知道怎么复制幻灯片再粘贴吗？（在PPT vba 里）

wudixin96

szzc 发表于 2015-6-5 13:46
谢谢，PPT上写VBA确实更容易，已完成数据导入的代码。请问，您知道怎么复制幻灯片再粘贴吗？（在PPT vba  ...

是复制一页PPT，还是指一页PPT里的内容？？

wudixin96

1. With Application.ActivePresentation
   
2.         .Slides(2).Copy    ''''复制第二页PPT
   
3.         .Slides.Paste      ''''粘贴
   
4.     End With

复制代码

不知道是不是这个意思

szzc

wudixin96 发表于 2015-6-5 14:35
是复制一页PPT，还是指一页PPT里的内容？？

复制一页PPT只是

现在还想问个问题：怎么复制excel的图表到ppt ，用PPT 的VBA ？

wudixin96

szzc 发表于 2015-7-3 13:27
复制一页PPT只是

现在还想问个问题：怎么复制excel的图表到ppt ，用PPT 的VBA ？

图表有一个copy方法的，版本高一点的，还是有copypicture方法。

可以把图片复制到剪贴板，再回到PPT，调用PASTE方法就行 了。