如果是单张图片保存,用下面方法:
1、选中EXCEL中的图片;
2、CTRL+C;
3、点击:开始->程序->附件->画图;
4、CTRL+V;
5、点击文件->另存为,选择要保存的路径,同时保存类型选择:JPEG(*.JPG;*.JPEG;*.JPE;*.JFIF)即可。
如果是批量保存图片,需用到VBA:
Sub lqxs()
Dim ad$, m&, mc$, shp As Shape
Dim nm$, n&, myFolder$
Sheet1.Activate
n = 0
myFolder = ThisWorkbook.Path & "\图片\" '指定文件夹名称
For Each shp In ActiveSheet.Shapes
If shp.Type = 13 Then
If Len(Dir(myFolder, vbDirectory)) = 0 Then
MkDir myFolder
End If
n = n + 1
ad = shp.TopLeftCell.Address
m = shp.TopLeftCell.Row
mc = Cells(m, 2).Value
nm = mc & "-" & Format(n, "00") & ".jpg"
shp.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
.Paste
.Export myFolder & nm, "JPG"
.Parent.Delete
End With
Range(ad) = nm: shp.Delete
End If
Next
表格---表格自动套用格式-----选择古典型2-----应用---然后选择行数和列数---确定
开始-样式-套用表格格式