Prev: Hiding rows where text not entered to right of colums A and B
Next: Saving File with names from Text Box's
From: joel on 4 Jan 2010 14:46

My code should work if the sheet names and chart object name is correct.
Yo need to activate the chartobject like I did below then select the
plot area.

With Sheets("ScratchArea")
.Range("A22:B29").CopyPicture Appearance:=xlScreen, _
Format:=xlBitmap

End With

With Sheets("Figure 21C")

.ChartObjects("Chart 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.Paste

End With


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=165045

[url="http://www.thecodecage.com"]Microsoft Office Help[/url]

From: theLuggage on 4 Jan 2010 16:04

Your code works, in the sense that it executes without giving any errors,
but I still just get a blank picture box with nothing in it.

It looks to me like the problem is with the copy itself, rather than the
paste because I ran the code up to the point where it does the .CopyPicture,
then stopped it.

Then I switched to Word 2007 and did a Ctrl-V just to see what was placed on
the clipboard, and all I get is an empty picture box.

This is really weird. I wonder if this is a service pack issue? Perhaps I
have (or don't have) some Office update that you do (or don't) have.
From: theLuggage on 4 Jan 2010 16:17
I changed the code from:
"ActiveChart.Pictures.Paste.Select"

to:

"ActiveSheet.Pictures.Paste.Select"

And it worked fine.

It looks like the trick is to use "Format:=xlPicture" instead of xlBitmap.

Thanks for the help.
From: "Jie Wang [MSFT]" on 5 Jan 2010 08:10
Alright, when I tested the code, I used a chart sheet so my code ended up
with "ActiveChart".

Good to know it's working now.

Have a nice day!

Jie Wang

Microsoft Online Community Support

Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
msdnmg(a)microsoft.com.

==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/en-us/subscriptions/aa948868.aspx#notifications.

Note: MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 2 business days is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions. Issues of this
nature are best handled working with a dedicated Microsoft Support Engineer
by contacting Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/en-us/subscriptions/aa948874.aspx
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.

First  |  Prev  | 
Pages: 1 2
Prev: Hiding rows where text not entered to right of colums A and B
Next: Saving File with names from Text Box's