Спасибо за ваше время, и я надеюсь, что кто-то может ответить на эту проблему для меня, я хочу скопировать диапазон, содержащий диаграмму и вставьте его в мою приборную панель, пользователь здесь по имени Патрик был достаточно добрым, чтобы показать мне путь, который отлично работает, кроме То, что картинка вставлена, показывает тени, такие как картинка ниже, и я не знаю, как это исправить, код, который я использую это:

    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, вы думаете, что я могу использовать свой код для всего, что мне нужно?

enter image description here

0
Mohd Reza 6 Окт 2019 в 15:16

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, который показывает мне шаг через код (нажмите на него, чтобы получить более высокое качество изображения). Я предлагаю вам дублировать именно то, что я сделал, чтобы подтвердить его для себя, а затем применить к вашей ситуации. Введите описание изображения здесь

1
Tony M 6 Окт 2019 в 18:16