|
请教大师:我想将指定区域内的内容保存为图片文件,可为什么调试能保存到图片,可运行模块时就变成空白了?谢谢!
Sub CopyRegionToPicture()
Dim ws As Worksheet
Dim chartObj As ChartObject
Dim rangeToCopy As Range
Dim picturePath As String
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 设置工作表和要复制的区域
Set rangeToCopy = ws.Range("A1:K13") ' 修改为您要复制的区域
rangeToCopy.CopyPicture Appearance:=xlScreen, Format:=xlPicture ' 复制为图片
Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=300, Top:=100, Height:=200) ' 创建一个临时的ChartObject来粘贴图片
With chartObj.Chart
.Paste '为什么运行这一句时,调试执行有图片内容,可运行子程序就是空白(图片没有内容)
.HasTitle = False
.ChartArea.Border.LineStyle = xlNone
End With
picturePath = ThisWorkbook.Path & "\1.JPG" '保存的路径和文件名
chartObj.Chart.Export picturePath, "JPG" ' 保存图片
chartObj.Delete ' 清除临时创建的ChartObject
End Sub
将指定的工作表区域保存为图片文件.rar
(50.54 KB, 下载次数: 11)
|
|