Paste Charts to PowerPoint - Enhanced Metafile

C

cwren

New Member
Joined
Jan 25, 2007
Messages
17
Hi All,

Great site. Been using it for years.

I'm able to paste charts to Powerpoint (using info from another thread). My problem is that I don't want the embed Excel in the power point. Can someone show how to do the paste in an Enhanced Metafile format? Also, how would I paste tables too in the enhanced Metafile format? Thanks in advance for your support.

Here's the core instructions I'm using right now:

Sheets("Op_Graphs").Select

'Create a Microsoft PowerPoint session
Set ppt = CreateObject("powerpoint.application")
'Copy the charts
ActiveSheet.ChartObjects(1).Copy
'Make PowerPoint visible
ppt.Visible = True
'Activate PowerPoint
AppActivate ppt.Name
'Open a new document in Microsoft PowerPoint for first iteration only
Set pres = ppt.Presentations.Add
'Add a slide
pres.Slides.Add 1, ppLayoutBlank

'Paste the chart
ppt.ActiveWindow.View.Paste

Regards,
CWren
 

Excel Facts

Square and cube roots
The =SQRT(25) is a square root. For a cube root, use =125^(1/3). For a fourth root, use =625^(1/4).
Sort by date Sort by votes
cwren said:
Works great. Thank you.
CWren
Click to expand...

I am looking to do something similar, but instead I am looking to paste the chart into an email in Outlook rather than in PowerPoint. Do you know how I can do that? I have figured out the code for creating the Outlook email and setting the subject and To fields, but I don't know how to paste something into the body of the email. Any suggestions?
 
Upvote 0
This code adds the picture as an attachment to the email. Do you know how I can paste it in the body of the email?
 
Upvote 0
I'm trying something very similar, and after I paste the png into powerpoint I also want it selected.

Regular .Shapes.Paste.Select works, but I don't know the syntax to make .Shapes.PasteSpecial DataType:=ppPastePNG then select the chart.

Best regards,
Jim
 
Upvote 0
Never mind I figured out if I changed PPSlide.Shapes.PasteSpecial DataType:=ppPastePNG to PPSlide.Shapes.PasteSpecial(DataType:=ppPastePNG).Select it would select the PNG file.Jim
 
Upvote 0
You must log in or register to reply here.

Similar threads

F
  • Question
Excel VBA to Powerpoint - paste special chart object link
Replies
3
Views
940
Domenic
D
B
  • Question
Excel to PowerPoint - Was working, not generating error....
Replies
1
Views
674
BuJay
B
B
  • Question
Paste Excel Ranges into Powerpoint slides at specified slide locations
Replies
4
Views
1K
Fluff
Fluff
C
  • Question
Replacing PowerPoint Input using Find and Replace Arrays from Excel through VBA
Replies
0
Views
1K
ckcs
C
A
  • Question
.CopyPicture and paste with 2 ranges
Replies
0
Views
584
Akbarov
A

Forum statistics

Threads
1,214,561
Messages
6,120,231
Members
448,951
Latest member
jennlynn

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top