Excel 차트를 그림으로 복사하여 다른 시트의 범위에 붙여 넣기

Question

나는 차트를 그림으로 복사하고 선택/활성화하지 않고 다른 시트에 붙여 넣으려고했습니다. 그러나 그림을 범위에 붙여 넣는 것처럼 보이지 않습니다.

Dim Range_DriverLookup As Range, RowCounter_DriverLookup As Long 
Dim Count_DeliveredServicesNumber As Long, Counter_DeliveredServicesNumber As Long 
Dim Cht_SitePotential As ChartObject 
Dim Cht_Top5 As ChartObject 
Dim Cht_RegionalPeerGroup As ChartObject 
Dim PvtTbl_SitePotential As PivotTable 
Dim PvtTbl_Top5 As PivotTable 
Dim PvtTbl_RegionalPeerGroup As PivotTable 
Dim Graph_PerformanceReport As Excel.Picture 

''''''''''''''''''''''''''''''''''''''''' 
' Assign ranges, pivottables and charts ' 
''''''''''''''''''''''''''''''''''''''''' 
Set Range_DriverLookup = ThisWorkbook.Worksheets(SheetDriverLookup.Name).ListObjects("DriverLookup").DataBodyRange 
Set PvtTbl_SitePotential = ThisWorkbook.Worksheets(SheetPerformanceReportLookup.Name).PivotTables("PivotTableSitePotential") 
Set PvtTbl_Top5 = ThisWorkbook.Worksheets(SheetPerformanceReportLookup.Name).PivotTables("PivotTableTop5") 
Set PvtTbl_RegionalPeerGroup = ThisWorkbook.Worksheets(SheetPerformanceReportLookup.Name).PivotTables("PivotTableRegionalPeerGroup") 
Set Cht_SitePotential = ThisWorkbook.Worksheets(SheetPerformanceReportLookup.Name).ChartObjects("ChartSitePotential") 
Set Cht_Top5 = ThisWorkbook.Worksheets(SheetPerformanceReportLookup.Name).ChartObjects("ChartTop5") 
Set Cht_RegionalPeerGroup = ThisWorkbook.Worksheets(SheetPerformanceReportLookup.Name).ChartObjects("ChartRegionalPeerGroup") 

''''''''''''''''''''''''''''''''''' 
' Initiate new performance report ' 
''''''''''''''''''''''''''''''''''' 
'// Clear previous graphs 
For Each Graph_PerformanceReport In ThisWorkbook.Worksheets(SheetPerformanceReport.Name).Pictures 
    Graph_PerformanceReport.Delete 
Next Graph_PerformanceReport 
'// Clear previous sheet setup, and initiate new 
Stop 
With ThisWorkbook.Worksheets(SheetPerformanceReport.Name) 
    '/ Unhide rows in PerformanceReport 
    .Cells.EntireRow.Hidden = False 
    '/ Clear previous "table of content" 
    .Range("TableOfContent").ClearContents 
    '/ Reset pagebreaks and set for new frontpage 
    .ResetAllPageBreaks 
    .Rows(71).PageBreak = xlPageBreakManual 
End With 

'// Set filters on frontpage graph 
PvtTbl_SitePotential.ClearAllFilters 
PvtTbl_SitePotential.PivotFields("Serviceline").AutoSort Order:=xlDescending, Field:="Potential Savings (Yearly) " 
PvtTbl_SitePotential.PivotFields("Serviceline").ShowDetail = False 
PvtTbl_SitePotential.PivotFields("Site").PivotFilters.Add Type:=xlCaptionEquals, Value1:=ThisWorkbook.Worksheets(SheetPerformanceReport.Name).Range("Site").Value 
PvtTbl_SitePotential.PivotFields("Serviceline").PivotFilters.Add _ 
Type:=xlValueIsGreaterThanOrEqualTo, DataField:=PvtTbl_SitePotential.PivotFields("Potential Savings (Yearly) "), Value1:=5000 

'// Create title for frontpage graph 
With Cht_SitePotential.Chart.ChartTitle 
     .Caption = ThisWorkbook.Worksheets(SheetPerformanceReport.Name).Range("Site") & " - Yearly Potential on Service Level" 
End With 

'// Paste frontpagegraph to PerformanceReport 
With Cht_SitePotential.Chart 
    .ChartArea.Copy 
End With 
ThisWorkbook.Worksheets(SheetPerformanceReport.Name).Range("D7:D7").PasteSpecial xlPasteValues 

코드의 상당 부분이 편집되었습니다. 나는 더 나은 해상도 차트 사진을 줄 것이다 "P1:P1"

ThisWorkbook.Worksheets(SheetPerformanceReport.Name).Range("P1:P1").PasteSpecial ppPasteEnhancedMetafile 

ppPasteEnhancedMetafile와 .Range("Frontpage_Graph")을 시뮬레이션 할 때 나를 위해 일하는

Answer 1

I'ts.

"P10:Z20"과 같은 범위를 사용하면 P10이 차트 그림의 앵커 포인트로 사용됩니다.