excel中自动套用格式古典2在哪里

2024-11-15 06:10:20
推荐回答(3个)
回答1:

如果是单张图片保存,用下面方法:
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:

表格---表格自动套用格式-----选择古典型2-----应用---然后选择行数和列数---确定

回答3:

开始-样式-套用表格格式