excel中自动套用格式古典2在哪里
答案:3 悬赏:0 手机版
解决时间 2021-01-31 17:43
- 提问者网友:两耳就是菩提
- 2021-01-30 19:31
excel中自动套用格式古典2在哪里
最佳答案
- 五星知识达人网友:琴狂剑也妄
- 2021-01-30 20:13
如果是单张图片保存,用下面方法:
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
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
全部回答
- 1楼网友:千夜
- 2021-01-30 21:27
表格---表格自动套用格式-----选择古典型2-----应用---然后选择行数和列数---确定
- 2楼网友:神鬼未生
- 2021-01-30 20:45
开始-样式-套用表格格式追问没有古典2追答选中表格区域-右键-自动套用格式。追问真的没有找到追答确认下,用的是否是2003。追问2010的版本在哪里找追答看来只有 浅色、中等深浅和深色。
确实记得 2003 里有这种配色的。
确实记得 2003 里有这种配色的。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯