코딩을 통해 차트에 이미지 붙여 넣기가 흐려짐

Question

차트에 이미지를 붙여 넣을 때 문제가 있습니다.

이

내 코드

ws.Paste 
Set MyChart = wb.Charts.Add 
MyChart.Name = "ImageChart" 
Set MyChart = MyChart.Location(Where:=xlLocationAsObject, Name:=ws.Name) 
MyChart.ChartArea.Width = ws.Shapes(1).Width 
MyChart.ChartArea.Height = ws.Shapes(1).Height 
MyChart.Parent.Border.LineStyle = 0 
ws.Shapes(1).CopyPicture xlScreen, xlPicture 
MyChart.ChartArea.Select 
MyChart.Paste 

나는 이미지와 동일하게 차트의 높이와 폭을 조정하고하고 붙여 넣을 때,이 흐리게됩니다의 컷 샘플입니다. 그러나 수동으로 할 때 이미지의 품질은 그대로 유지됩니다.

Answer 1

당신은 xlPrinter에 CopyPicture에

변경합니다 ... 고해상도 메타 파일로 첫 번째 인수를 사진을 복사해야합니다.