EXCEL 中怎么样批量预览图表?

发布网友发布时间：2022-04-29 01:05

共1个回答

热心网友时间：2022-06-27 02:54

这个可以用Excel的VBA实现，思路是把你Excel中所有的图表都导出来变成JPG格式，这样就方便打印了。
Sub Export()
On Error Resume Next
Dim myChart As Chart
Dim Myfilename As String
Dim n, m As Integer
m = Worksheets.Count
For i = 1 To m
n = Worksheets(i).ChartObjects.Count
For j = 1 To n
Set myChart = Worksheets(i).ChartObjects(j).Chart
Myfilename = myChart.ChartTitle.Characters.Text & ".jpg"
myChart.Export Filename:="E:\c\" & Myfilename, FilterName:="JPG" '需要新建C文件夹
Next j
Next i
Set myChart = Nothing
End Sub
你打开自己的有图表的那个Excel，按ALT+F11,打开VBE编辑器，然后选择视图→代码窗口，将上一段代码复制进去，然后按下F5就行了，这样你所有的图表就都到E:\c这个文件夹里了（当然你要先在E盘的根目录下新建一个文件夹，命名为C