Paul -

The PowerPoint FAQ calls it a problem when Excel content is pasted into
PowerPoint, but I think it can happen just in Excel. This page has some
info about it:

http://www.rdpslides.com/pptfaq/FAQ00068.htm

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

Paul Smith wrote:

> John,
>
> Thanks for your suggestion but it makes no difference.
>
> The problem seems to be when the charts is stretched wider than a certain
> ratio of the original.
>
> This problem is very very frustrating, so if anyone else has any solution
> please let me know.
>
> Paul Smith
>
>
>
>
> "John Mansfield" <JohnMansfield@discussions.microsoft.com> wrote in message
> news:203C3CB9-2E5D-4166-A0DF-5E9EA920CC34@microsoft.com...
>
>>Paul, would this revision work for you? It assumes you don't need the
>>reference to the .bmp file to copy the picture:
>>
>>Sub CopyChart()
>> ActiveSheet.ChartObjects("First Chart").Activate
>> ActiveChart.ChartArea.Select
>> ActiveChart.CopyPicture Appearance:=xlPrinter, Size:=xlScreen, Format:=
>>_
>> xlPicture
>> Range("A31").Select
>> ActiveSheet.Pictures.Paste.Select
>>End Sub
>>
>>----
>>Regards,
>>John Mansfield
>>http://www.pdbook.com
>>
>>"Paul Smith" wrote:
>>
>>
>>>What on earth is happening with th code below??????
>>>
>>>The code works fine, copying a chartobject and pasting it into a new
>>>location. The problem is that while the chart area is the same size,
>>>only
>>>two thirds of the image is copied.
>>>
>>>I will say that I have stretched the plot area of the original, it itself
>>>does not behave strangely.
>>>
>>>I have no idea what the problem is, does any one else?
>>>
>>>
>>>Code Snippet:
>>>ThisWorkbook.Activate
>>>
>>>Worksheets("Summary").Activate
>>>
>>>Range("A30").Select
>>>
>>>ActiveSheet.ChartObjects("First Chart").CopyPicture xlScreen, xlBitmap
>>>
>>>Workbooks(TargetWB).Activate
>>>
>>>Worksheets("Summary").Activate
>>>
>>>Range("A31").Select
>>>
>>>ActiveSheet.Paste
>>>
>>>
>>>
>
>
>