Cannot copy Excel 2007 Chart and Paste as Bitmap into Powerpoi
in [Charts]
|
From: SysMod on 29 Sep 2009 09:14 Jon, I've done more tests. Here is the new code with an extra step / workaround / kludge. ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture ' for the Shape tests, convert it to a picture in Excel first then copy it, so the other formats become available except 7,8,9 ActiveSheet.Paste ' will delete this copy shape later below ' have to do this to get the shape because activesheet.paste returns boolean Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) shp.copy mPPSlide.Shapes.PasteSpecial(PasteDataType) I can't embed images here AFAIK but if you want samples I can email them to you I'll check whether the blurry effect on the text labels in the chart is from resizing but at the moment ppPasteBitmap is best, PNG is usable. OTOH 2,3,10 look best in Windows so they'll have to choose what they want ! ' PpPasteDataType: Mac text effect ' 0 ppPasteDefault broken ' 1 ppPasteBitmap good, a little fuzzy ' 2 ppPasteEnhancedMetafile broken ' 3 ppPasteMetafilePicture broken ' 4 ppPasteGIF bold, most blurry ' 5 ppPasteJPG bold, medium blurry ' 6 ppPastePNG bold, less blurry '10 ppPasteOLEObject badly broken '11 ppPasteShape badly broken 7,8,9 are text data formats, not applicable here Thanks, Patrick
From: Jon Peltier on 29 Sep 2009 14:02 Now that you mention it, in a client project I had to copy as picture using bitmap format, paste into Excel, copy this pasted picture, then regular paste into PowerPoint. And while I said bitmaps in 2007 were better than metafiles, they still look awful. - Jon ------- Jon Peltier Peltier Technical Services, Inc. http://peltiertech.com/ SysMod wrote: > Jon, > > I've done more tests. Here is the new code with an extra step / workaround > / kludge. > > ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, > Format:=xlPicture > > ' for the Shape tests, convert it to a picture in Excel first then copy it, > so the other formats become available except 7,8,9 > > ActiveSheet.Paste ' will delete this copy shape later below > > ' have to do this to get the shape because activesheet.paste returns boolean > > Set shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count) > > shp.copy > > mPPSlide.Shapes.PasteSpecial(PasteDataType) > > I can't embed images here AFAIK but if you want samples I can email them to > you > > I'll check whether the blurry effect on the text labels in the chart is from > resizing but at the moment ppPasteBitmap is best, PNG is usable. OTOH 2,3,10 > look best in Windows so they'll have to choose what they want ! > > > ' PpPasteDataType: Mac text effect > ' 0 ppPasteDefault broken > ' 1 ppPasteBitmap good, a little fuzzy > ' 2 ppPasteEnhancedMetafile broken > ' 3 ppPasteMetafilePicture broken > ' 4 ppPasteGIF bold, most blurry > ' 5 ppPasteJPG bold, medium blurry > ' 6 ppPastePNG bold, less blurry > '10 ppPasteOLEObject badly broken > '11 ppPasteShape badly broken > > 7,8,9 are text data formats, not applicable here > > > Thanks, > > Patrick >
From: SysMod on 30 Sep 2009 03:58 Thanks, Jon That expression ActiveSheet.Shapes(ActiveSheet.Shapes.Count) is awkward too, it would be easier to have a paste method that returns the pasted object. Anyway, it occurs to me (only now!) that this is really a Powerpoint question. I'll ask in the PP Forums about what fonts are safe to use on both PC and Mac so that the metafile pictures render correctly in both Windows and Mac. Regards Patrick
From: Jon Peltier on 30 Sep 2009 10:58 It also may return the wrong shape in 2007 if you have any controls on the sheet. 2003 treats all shapes the same, at least in terms of stacking order and order in the collection of shapes, but 2007 has different hierarchies of shapes, and it can make you cry. - Jon ------- Jon Peltier Peltier Technical Services, Inc. http://peltiertech.com/ SysMod wrote: > Thanks, Jon > > That expression ActiveSheet.Shapes(ActiveSheet.Shapes.Count) > > is awkward too, it would be easier to have a paste method that returns the > pasted object. > > Anyway, it occurs to me (only now!) that this is really a Powerpoint > question. I'll ask in the PP Forums about what fonts are safe to use on both > PC and Mac so that the metafile pictures render correctly in both Windows and > Mac. > > Regards > > Patrick >
|
Pages: 1 Prev: Cannot copy Excel 2007 Chart and Paste as Bitmap into Powerpoint 2 Next: Ezflash vi Dsi 48349 |