Hello,
I have a document with 2 sheets. I have linked a chart from the 1st sheet onto the 2nd sheet. When I try to run the macro
below from a button on the 2nd sheet, I get the following error:
Shapes.Paste : Invalid request. Clipboard is empty or contains data which may not be pasted here.
''***********Create Powperpoint Report******************
sub To_Powerpoint
Set PPApp = CreateObject("Powerpoint.Application")
PPApp.Visible = True
Set PPPres = PPApp.Presentations.Add
Set PPSlide = PPPres.Slides.Add(1, 1)
ppApp.ActiveWindow.View.GotoSlide 1
PPSlide.Shapes(1).Delete ' removes the title
PPSlide.Shapes(1).Delete ' removes the subtitle
ActiveDocument.GetSheetObject("CH16").CopyBitmapToClipboard
PPSlide.Shapes.Paste.Select
PPPres.SaveAs "C:\temp\Report.pptx"
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end sub
The macro works as expected on the 1st sheet with the original chart object.
Does anyone know how to use CopyBitmapToClipboard on a Linked Object?
Thank you
Grant