Спасибо за ваше время, и я надеюсь, что кто-то может ответить на эту проблему для меня, я хочу скопировать диапазон, содержащий диаграмму и вставьте его в мою приборную панель, пользователь здесь по имени Патрик был достаточно добрым, чтобы показать мне путь, который отлично работает, кроме То, что картинка вставлена, показывает тени, такие как картинка ниже, и я не знаю, как это исправить, код, который я использую это:
ActiveSheet.Pictures.Delete
Application.ScreenUpdating = True
Application.CutCopyMode = False
Worksheets("Weekly Sorted").Range("N1:AA37").CopyPicture xlScreen, xlBitmap
Application.ScreenUpdating = False
Sheets("Dash").Select
Range("B5").Select
ActiveSheet.Pictures.Paste.Select
Фотография, как график выглядит ... 
И эта картина - это то, как она встаивается ... 
Я не очень знаком с техническими кодами, поэтому простое решение этой проблемы высоко ценится. Я пытался использовать параметры XLPrint и XLPicture, но полученные разрешения изображения были ужасны.
Заранее благодарю вас.
РЕДАКТИРОВАТЬ:
Спасибо Тони за помощь, мне не очень ясно, как я пытался упростить вещами, прежде чем мой код выше копирует целый ряд диапазонов, таблиц и другой информации из расчетного листа к приборной панели, в зависимости от того, какая переключатель Нажата, как новая картинка ниже, иногда есть более 10 графиков, я использую Excel 2007, вы думаете, что я могу использовать свой код для всего, что мне нужно?
1 ответ
Я сделал график, который, похоже, похоже на ваш из данных, показанных на A2: A9 на листе «1», а затем запустил код ниже для создания изображения из таблицы, вставленной на лист «2»
Option Explicit
Sub copyChartPicture()
Dim ch As ChartObject
Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Worksheets("1")
Set sh2 = Worksheets("2")
For Each ch In sh1.ChartObjects
ch.CopyPicture
sh2.Activate
sh2.Pictures.Paste
Next ch
End Sub
Это выглядит идентично, как видно в анимированном GIF, который показывает мне шаг через код (нажмите на него, чтобы получить более высокое качество изображения). Я предлагаю вам дублировать именно то, что я сделал, чтобы подтвердить его для себя, а затем применить к вашей ситуации. 
En Español