copy/paste in VBA

[waldymar]

Dear All,

I have developed a macro which copy my report and paste it as values to a new worksheet. The problem is that the report has a couple of graphs which are not copied as values and keep links to the original source. How to solve this issue and paste my graphs as values as well?
This is the code:

Sub Moving()
Application.ScreenUpdating = False
Dim varPath As String
Dim WbOpen As Workbook
Set WbOpen = Workbooks.Add
varPath = coding.Range("b1").Value
currdashboard.Copy before:=WbOpen.Sheets(1)
      
Application.DisplayAlerts = False
WbOpen.SaveAs varPath & "\Currency and Interest Rate Dashboard-" & Format(Date, "dd-mmm-yyyy") & ".xlsx"
Application.DisplayAlerts = True
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
WbOpen.Close savechanges:=True
Application.ScreenUpdating = True
End Sub

Thanks in advance

 

[machopicho]

Something like this?
To copy graph:

Sub Macro1()

    ActiveSheet.ChartObjects("Grafico 1").Activate
    ActiveChart.ChartArea.Copy
    Sheets("Foglio2").Select
    ActiveSheet.Paste
End Sub

To move graph:

Sub Macro2()

    ActiveSheet.ChartObjects("Grafico 1").Activate
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Foglio3"
   
End Sub