Question

如何实现vba将excel图表转存为jpg格式？

需要选定a1到d3的区域复制，然后打开windows画图粘贴后保存为jpg

Range("A1:D12").Select
Selection.Copy
Shell "C:\WINDOWS\system32\mspaint.exe ", 1

只到这步就不会了……

Answer 1

不需要打开画图板，用VBA代码就可以实现。
Sub test()
Dim myPic As Shape, pic As Shape
Dim rng As Range
n = ActiveSheet.Shapes.Count
Set rng = Application.InputBox("请选择需要截取的屏幕范围：", "截取范围", Type:=8)
rng.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
Set myPic = ActiveSheet.Shapes(n + 1)
With ActiveSheet.ChartObjects.Add(0, 0, myPic.Width, myPic.Height).Chart
myPic.Copy
.Paste
SaveName = Application.GetSaveAsFilename(InitialFileName:="MyExcelPic", filefilter:="图片文件(*.JPG),*.JPG")
If SaveName <> "False" Then .Export SaveName, "JPG"
.Parent.Delete
End With
myPic.Delete
Set myPic = Nothing
Set rng = Nothing
End Sub

追问

您好，谢谢您的回答，还想请问您，要是有要求必须调用画图软件，并把复制的内容贴进去并保存，可以实现么?万分感谢了

Answer 2

干嘛要这么麻烦？
1.你可以用截图软件
2.你可以用excel的照相机功能
3.你可以用粘贴为图片格式的