Excel VBA 将当前活动工作表中的图片保存到以工作表名称命名的文件夹内

Sub exportpic() '将当前活动工作表中的图片保存到以工作表名称命名的文件夹内
Dim sn, path As String, j%
sn = ActiveSheet.Name
path = "E:\家具图片" '修改为以当前sheet命名文件夹的上一层文件夹路径
For j = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(j).Select
If ActiveSheet.Shapes(j).Type = 13 Then
Selection.CopyPicture
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export path & "\" & sn & "\" & sn & j & ".jpg", "jpg" '图片保存并命名为sheet名加上序号
.Parent.Delete
End With
End If
Next
End Sub

Excel VBA 将当前活动工作表中的图片保存到以工作表名称命名的文件夹内相关推荐

python opencv 实现从一个文件夹中读取图片做切割处理后放入另一个文件夹
python opencv 实现从一个文件夹中读取图片切割处理后放入另一个文件夹. 实现的功能是把一个文件夹里的图片作处理,即把原图片中心为起点切割成1536*1536的图片,原图片必须大于这个的大小 ...
Matlab中调用文件夹中子文件夹内.m文件的方法
关于matlab中调用一个文件夹内所有的.m文件,包括其内的其他子文件夹内所包括的.m文件方法问题:我们在经常打开一个.m文件,系统默认为添加该文件夹,或者我们经常添加path中set path的 ...
VBA应用笔记 -- 批量导出excel工作表中的图片
业务场景: 日常工作中,我们可能会遇到需要批量导出excel表中的图片的情况,按照网友的做法,批量导出excel中的图片主要有几种方法: 解压缩方法:可以通过将excel文件转成rar压缩文件,解压后 ...
写一段vba代码，把excel中所有工作簿中的图片删除
以下是 VBA 代码,可用于删除 Excel 中所有工作簿中的图片: Sub DeleteAllImages()Dim ws As WorksheetDim shp As ShapeFor Each ...
php将excel数据导入mysql表中_【PHP】将EXCEL表中的数据轻松导入Mysql数据表
在网络上有不较多的方法,在此介绍我已经验证的方法. 方法一.利用EXCEL表本身的功能生成SQL代码 ①.先在"phpmyadmin"中建立数据库与表(数据库:excel,数据表: ...
在EXCEL中通过VBA实现批量读取文件夹内的文件名称
需求:有时候需要批量读取某个文件夹中的文件名称,有的程序只能读取同类型的,当文件为不同类型时就无法读取,因此需要写一个VBA程序,实现批量读取同一文件夹内的所有文件名称,且不需要修改程序就可以自由选择 ...
Excel如何快速将工作簿中的图片全部保存下来？
1.如下图工作簿中有一些图片,现在我们想要将工作簿中的图片全部保存下来. 2.首先我们点击[图片工具]选项 3.点击[导出图片] 4.勾选[当前簿],并设置图片命名依据 5.点击[ ...
在word文档表中插入图片不变形
在word文档表中插入图片不变形目录在word文档表中插入图片不变形 1.点击左上角[全选图标 ]选中表格,鼠标右键点击[表格属性] 2.点击[选项]点击取消勾选[自动重调尺寸以适应内容],最后 ...
VBA小程序--打开文件夹内所有Excel表格（代码简单，针对xls + xlsx，注释清楚，小白亦可轻松看懂）
PS:使用下面的代码时,请先根据自己所需要处理的文件夹,进行更改mypath的路径 Sub VBA打开文件夹内所有Excel表格()Dim myPath$, myFile$, WB As Workbo ...

Excel VBA 将当前活动工作表中的图片保存到以工作表名称命名的文件夹内

Excel VBA 将当前活动工作表中的图片保存到以工作表名称命名的文件夹内相关推荐

最新文章

热门文章