Error when exporting from excel to powerpoint

I have used this same code countless times, but all of a sudden I'm getting errors.  In fact, I execute the same code multiple times in the same macro, but I only seem to have a problem on this one slide.  For simplicity, I've extracted just the snippet I'm having trouble with and attached it here.  I'm certainly confused why I'm having a problem pasting here, but that is where it is getting hung up.  

This was working when I copied just the chart, but when I changed it to copy a range of cells, I started getting this error (I do it both ways for different slides, depending on whether or not I need data that is in a cell outside of the chart).

Also, it seems to be taking an inordinate amount of time to get through the copy step.  Again, I've run similar code for years but it's never taken so long to execute.  The entire macro exports data to a presentation with 15 slides, and on some computers it has taken upwards of 30-45 seconds to run, which seems ridiculous (that was before I started getting this error).  Is there a way I can make this execute more quickly?

As always, your help is appreciated!
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rich5150Author Commented:
Here are the files for your testing.
Hi, under
    Set pptApp = CreateObject("PowerPoint.Application")

Try adding
    pptApp.Visible = True


Rich5150Author Commented:
That won't have any impact whatsoever on resolving this issue.  I did it anyway, and it still takes forever to execute and I still get the error.  

As I said before, the chart in the example file is actually the fifth item to be exported in my main file, and the first four work just great using the same code, which is what has me so perplexed.

FYI - I also tried running code cleaner on it but it had no effect.
Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

I can't reproduce the error. Can you please post details of the error and the debug line?
Rich5150Author Commented:
You bet.  I know I'm stating the obvious, but I'm running the CreatePresentation macro which exports the chart on the Timeline worksheet to the PowerPoint file called powerpoint example, so you have to save both files to your hard drive before running that macro.  I have a button in my main file that executes that macro but I didn't think it that was necessary here.

Here is the error message:
error message
and the debug line:
debug line
John WilsonCEO PowerPoint AlchemyCommented:
Hi Rich

You have the name of the Presentation wrong in the download I have - there's a hyphen missing. I guess this is a typo though.

When I step through your code

This line
Worksheets("timeline").Range("a1:k37").CopyPicture Appearance:=xlPrinter, Format:=xlPicture

Does not copy the range and the clipboard is empty.

Try using Appearance:=xlScreen instead of xlPrinter see if that helps.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Rich5150Author Commented:
I don't know where the hyphen came from.  There is no hyphen in the file name that I uploaded.  Anyhow, I've done a few more tests on those files.  If I don't have the chart there, everything executes well.  If I have the chart there with no data (ie, nothing graphed and no links to data), then it executes well.  However, with the data linked to the chart, it will not execute.  I'm assuming this is why Rob was unable to see the error, since when I opened the file that I had uploaded, it broke the links to the data in the original file.  That's my fault, but I wasn't considering that the data links could be the problem.

I've never run into this before.  This is a very complex graph that is created by another macro, but why would that make any difference if I'm simply copying a range of cells as a picture and then exporting that picture to PowerPoint?

This did work when I referenced the actual chart (as opposed to a range of cells) and copied that into PowerPoint as a picture, but as I mentioned before, this macro runs very slowly, and now I'm thinking that that also has something to do with the complexity of the graph.  Unfortunately I don't have any ideas on what to do about it.
John WilsonCEO PowerPoint AlchemyCommented:
Using the default xlScreen it ran much faster for me and no error. No idea why though!
Rich5150Author Commented:
Just tried your suggestion and it worked.  Also sped things up a bit.  Like you, I don't really know why.  Maybe some Microsoft engineer out there does.  Thanks for your suggestion!
Here is the documentation for the CopyPicture method:

xlPrinter appears to copy the picture as it would be printed.  I assume this puts the picture object through the printing process and renders it differently according to the print driver, and this may slow things down.   The default value is xlScreen anyway, so it would be best to leave it that way.


It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.