Copy Range into PowerPoint

[tsm1111]

I am trying to do something very simple but running into a problem with pasting. I am a VBA novice. Please see the code below. I have the reference to Microsoft PowerPoint Object library set up. Everything works util the paste step.

Sub PowerPoint()
'creates new instance of powerpoint
Dim ppApp As Object
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide


Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = True
ppApp.Activate


'cretae presentation
Set ppPres = ppApp.Presentations.Add


Set ppSlide = ppPres.Slides.Add(1, ppLayoutTitle)


ppSlide.Shapes(1).TextFrame.TextRange = "Title"
ppSlide.Shapes(2).TextFrame.TextRange = "by First Last"


Set ppSlide = ppPres.Slides.Add(2, ppLayoutBlank)


ppSlide.Select


Range("C3:H8").Copy


ppSlide.Shapes.Paste


End Sub

 

[Domenic]

Your code seems to work for me. Do you get an error? If so, which one?

 

[tsm1111]

Shapes (unknown member): invalid request. Clipboard is empty or contains dtat which may not be pasted here. Here is how my table looks like:

[TABLE="width: 288"]


<colgroup><col style="width: 48pt;" span="6" width="64">
<tbody>[TR]

[TD="width: 64, bgcolor: transparent"]A[/TD]

[TD="width: 64, bgcolor: transparent"]B[/TD]

[TD="width: 64, bgcolor: transparent"]C[/TD]

[TD="width: 64, bgcolor: transparent"]D[/TD]

[TD="width: 64, bgcolor: transparent"]Month[/TD]

[TD="width: 64, bgcolor: transparent"]Sales[/TD]

[/TR]

[TR]

[TD="bgcolor: transparent, align: right"]1[/TD]

[TD="bgcolor: transparent, align: right"]6[/TD]

[TD="bgcolor: transparent, align: right"]11[/TD]

[TD="bgcolor: transparent"]One[/TD]

[TD="class: xl63, bgcolor: transparent, align: right"]1/1/2015[/TD]

[TD="bgcolor: transparent, align: right"]7[/TD]

[/TR]

[TR]

[TD="bgcolor: transparent, align: right"]2[/TD]

[TD="bgcolor: transparent, align: right"]7[/TD]

[TD="bgcolor: transparent, align: right"]12[/TD]

[TD="bgcolor: transparent"]Two[/TD]

[TD="class: xl63, bgcolor: transparent, align: right"]2/1/2015[/TD]

[TD="bgcolor: transparent, align: right"]3[/TD]

[/TR]

[TR]

[TD="bgcolor: transparent, align: right"]3[/TD]

[TD="bgcolor: transparent, align: right"]8[/TD]

[TD="bgcolor: transparent, align: right"]13[/TD]

[TD="bgcolor: transparent"]Three[/TD]

[TD="class: xl63, bgcolor: transparent, align: right"]3/1/2015[/TD]

[TD="bgcolor: transparent, align: right"]1[/TD]

[/TR]

[TR]

[TD="bgcolor: transparent, align: right"]4[/TD]

[TD="bgcolor: transparent, align: right"]9[/TD]

[TD="bgcolor: transparent, align: right"]14[/TD]

[TD="bgcolor: transparent"]Four[/TD]

[TD="class: xl63, bgcolor: transparent, align: right"]4/1/2015[/TD]

[TD="bgcolor: transparent, align: right"]6[/TD]

[/TR]

[TR]

[TD="bgcolor: transparent, align: right"]5[/TD]

[TD="bgcolor: transparent, align: right"]10[/TD]

[TD="bgcolor: transparent, align: right"]15[/TD]

[TD="bgcolor: transparent"]Five[/TD]

[TD="class: xl63, bgcolor: transparent, align: right"]5/1/2015[/TD]

[TD="bgcolor: transparent, align: right"]2[/TD]

[/TR]


</tbody>[/TABLE]

 

[Domenic]

Does it help if you copy the range as a picture?

Range("C3:H8").[COLOR=#ff0000]CopyPicture[/COLOR]

 

[tsm1111]

it does, thank you! Is there a way to copy this as an editable table?

 

[Domenic]

Try...

Range("C3:H8").Copy
ppSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse

 

[tsm1111]

Comes back with the same error: Shapes (unknown member): invalid request. Clipboard is empty or contains dtat which may not be pasted here. Here is how my table looks like:

 

[tsm1111]

in Office 2010 you have to use

ppSlide.Shapes.PasteSpecial ppPasteOLEObject

!!!!!!!!!!!!!!!!!!

 

[Domenic]

Actually, both your version and mine are equivalent. In your version, since you haven't explicitly set the argument for Link to true or false, it defaults to false.

 

[tsm1111]

How do I set that up?