У меня есть книга со многими различными диапазонами данных с 77 строками или более. Мне нужно скопировать их и сохранить как файлы JPG, которые будут использоваться другим приложением.
Ниже приведен пример кода, который я использую для этого. Он отлично работает для диапазонов до 68 строк, но для диапазонов с более чем этим файл показывает высоту около 1360 пикселей диапазона, а остальная его часть (нижняя часть) белая.
Sub Create_jpg()
Dim MyPath Как Строка
Дим аргумента rgexp в качестве Диапазон
MyPath = ThisWorkbook.Path & "ScorecardJPEGs"
Sheets("LocalMetrics").Select
Set rgExp = Range("A1:AL77")
rgExp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
Width:=(rgExp.Width - 10), Height:=(rgExp.Height - 5))
.Name = "ChartTempEXPORT"
.Activate
End With
ActiveChart.Paste
ActiveSheet.ChartObjects("ChartTempEXPORT").Chart.Export FileName:=MyPath & "Scorecard.jpg", _
Filtername:="jpg"
ActiveSheet.ChartObjects("ChartTempEXPORT").Delete
Конец Sub
Я проверил, что создание диаграммы и вставьте выглядит нормально, как я удалил код, который удаляет таблицу в конце и, видимо, картину на графике было ок. Но когда файл создается, нижняя часть картинки просто исчезает, и появляется пустое место.
Это произошло со всеми диапазонами со многими строками.