Сохранить диапазон как файл изображения/pdf на одной странице

Question

Я пытаюсь сохранить диапазон как файл изображения. Код ниже (очищенный от другого сообщения) работает, но я не хочу создавать страницу диаграммы, которую мне тогда нужно удалить. Какие-либо предложения?

Sub savedeal() 

Dim sSheetName As String 
Dim oRangeToCopy As Range 
Dim oCht As Chart 
Dim myFileName As String, myPath As String 

myFileName = Format(Now(), "dd-mmm-yy") & "-" & "DEAL.PNG" 
myPath = "D:\Hughs Files\Google Drive\Work Folder\Polaris\Blog\" 


Worksheets("BOOK").Range("B15:M45").CopyPicture xlScreen, xlBitmap 

Set oCht = Charts.Add 

With oCht 
    .Export Filename:=myPath & "\" & myFileName, Filtername:="PNG" 
End With 
End Sub 

Answer 1

Это обсуждалось в течение многих лет, если вы хотите сохранить как изображение, которое вы должны будете добавить диаграмму, даже надстройки использовать диаграмму.

Одна вещь, которую вы можете сделать, хотя и сохраняет желаемый диапазон, например, в формате PDF.

Sub RngToPDF() 
    Dim sh As Worksheet, rng As Range, Fnm As String 

    Set sh = Sheets("Book") 
    Set rng = sh.Range("B15:M45") 
    Fnm = "C:\Users\Dave\Downloads\TestMe.pdf" 

    With sh.PageSetup 
     .PrintArea = rng.Address 
     .PrintGridlines = True 
     .FitToPagesWide = 1 
     .FitToPagesTall = 1 
    End With 

    sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fnm 


End Sub