将范围保存为一个图片文件/ pdf在一个页面上

我正在尝试将范围保存为图片文件。 下面的代码（从另一个post挖掘）的作品，但我不想创build一个图表页面，然后我需要删除。 有什么build议么？

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