• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 250
  • Last Modified:

Copy Chart

Hi,

I am trying to copy a chart from one Sheet to another. Whenever i do, it copys a lot larger than i want, so im looking to resize the chart once pasted.

I was trying to use the below code but everytime i paste the pic, the number changes, next paste it will be ("Chart61") etc etc

So is there a way to resize the chart on paste

 ActiveSheet.Shapes("Chart 60").ScaleHeight 0.62, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes("Chart 60").ScaleWidth 0.77, msoFalse, msoScaleFromTopLeft

Thanks
Seamus

Private Sub CommandButton8_Click()

Call deletePic
Sheets("Cash Chart").Visible = True
Sheets("Cash Chart").Select

    
    ActiveWindow.ActiveChart.CopyPicture
    Sheets("Cash Chart").Visible = False
    Sheets("Screen").Select
    Range("C14").Select
    ActiveSheet.Paste
    
    
End Sub

Open in new window

0
Seamus2626
Asked:
Seamus2626
1 Solution
 
jppintoCommented:
Did you check the View-Zoom scale of both sheets to see if they are the same? Maybe you're pasting the chart into a sheet that has a higher zoom then the original and it looks like the chart is bigger...
Capturar.JPG
0
 
Seamus2626Author Commented:
Hey Jppinto, there both at 100%...


Thanks
Seamus
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now