VBA - 范围到jpg图片

Question

我正在尝试从excel中的特定范围获取jpg文件

我现在正在接受

来自_Worksheet对象的Range方法的1004运行时错误.

这就是我的代码:

Sub Export()

Dim ws As Worksheet
Dim Rng As Range
Dim Chrt As Chart

Set ws = ActiveSheet
Set Rng = Range("B2:H11")

ws.Range(Rng).CopyPicture
Set Chrt = Charts.Add

With Chrt
    .Paste
    .Export FileName = "Case.jpg", Filtername:="JPG"
End With

End Sub

Answer 1

@J_Lard在他的评论中已经提到了主要错误.

但我会使用ChartObject而不是一张Chart纸.您可以确定输出的大小,而不是获取图片中的整个图表区域.

而使用F8步骤粘贴和导出将工作,而实时运行,ChartObject需要激活.

Sub Export()

 Dim oWs As Worksheet
 Dim oRng As Range
 Dim oChrtO As ChartObject
 Dim lWidth As Long, lHeight As Long

 Set oWs = ActiveSheet
 Set oRng = oWs.Range("B2:H11")

 oRng.CopyPicture xlScreen, xlPicture
 lWidth = oRng.Width
 lHeight = oRng.Height

 Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)

 oChrtO.Activate
 With oChrtO.Chart
  .Paste
  .Export Filename:="Case.jpg", Filtername:="JPG"
 End With

 oChrtO.Delete

End Sub

如果未指定path,Case.jpg则将保存在默认保存位置.这可能是您的用户文档目录C:\Users\YourName\Documents\