Copy Excel graphs to Powerpoint

In the attached, I have an extract from a spreadsheet that does just this. I have a template powerpoint file that has everything else set up except for the charts and the data ranges I want to copy.

There is some extraneous code that you may want to ignore where I set certain text values. The meat of what you want is in the 'Add Objects section. The spreadsheet has a "map" where I tell this function what page and object to copy, what kind it is (Chart or Range) and where to put it. The Column PPObject isn't used in the code. It's for user comments.

On which line? I'm guessing: Sheet9.Shapes("Chart 1").CopyPicture

This probably needs to be Sheets("Sheet9").Shapes("Chart 1").CopyPicture

Try

Set sld = ObjPPT.Slides(1)

instead of
Set sld = ppt.Slides(1)

Also I recommend putting Option Explicit at the very beginning of every module of code you ever write. Option Explicit forces you to declare your variables and identifies when a variable (usually a misspelling) is not defined.

With the module open, go to Tools -> Options and click on the box "Require Variable Declaration." This will put Option Explicit automatically on every new module.

I also recommend checking off Auto Syntax Check. Quite often I am typing a command and realize that I want to copy and paste from another part of the code. When I leave the line to do this, I get a dialog box that tells me the line has an error. By clicking off this box, this annoyance doesn't happen. The line is still highlighted in red if there is a syntax error.

Could you attach the file and the powerpoint too. Let me see what's happening first hand.

I'll take a look at this. I have some real life work to do at the moment, so it may be a while.

I made a blank PowerPoint slide with a blank second page (PPT.pptx). The issue was between objPPT, the application and ppt, the active presentation within the application. I had to go back to my code, it's been a while and I've forgotten a couple of things.

This line: Set objPPT = CreateObject("Powerpoint.application")
Launches the PowerPoint application.

This line: objPPT.Presentations.Open MyPath & "\" & PPTFile
opens up the specific file

This line: Set ppt = objPPT.activepresentation
makes a shortcut called ppt so we don't have to type objPPT.activepresentation all the time.

Please Login or Register  to view this content.

Th

Maybe the attached will help you. It's a "subset" of a project I use to copy ranges and shapes to PowerPoint and position them on the page.

Excel Page is the name of the Excel Sheet that contains what you want to copy.
Excel Object is the name of the shape or the range you want to copy.
Excel Type is Chart for a chart or Range for a range
PP Page is the PowerPoint page on which you want to put the object.
PPObject isn't used by the code. It's just comments for the human user.
Top, Left, Height and Width are the measurements, in inches, to position and size what gets pasted.

The module has some code to replace text on the title page and to replace footer dates. You can ignore this part of the code. What you want starts with "Add Objects."

I made the code data-driven so I could change the data and not change the code. So yes, if you have a number of charts or ranges to put in the powerpoint presentation, I do recommend you build a table like I did.

As far as naming the charts, I right clicked on them and named them manually. I use the same charts each time.

I'd have to do some experimenting with it. I would think that the last text box created would be the active text box. Somehow

Please Login or Register  to view this content.

is getting confused as to which textbox is active. I don't know if there is a way you can name the text box or index it.