整理贴：插入导出表格图片及区域导出图片等

fxl447098457

xl6403 发表于 2018-11-15 20:39
下载学习了一下。发现插入照片有用，运行导出照片，相应文件夹里没有照片，导出区域照片得到的是空白照片。 ...

高版本的excel里面确实会出现导出空白图片。需要在.Paste这句上面插入一句 .Parent.Select即可解决。

xl6403

fxl447098457 发表于 2018-11-15 20:55
高版本的excel里面确实会出现导出空白图片。需要在.Paste这句上面插入一句 .Parent.Select即可解决。

1. ActiveSheet.Pictures.Paste.Select

复制代码

这句前面怎么加了以下代码

1. ActiveSheet.Pictures .Parent.Select

复制代码

导出的也还是空白照片。

xl6403

liulang0808 发表于 2018-11-15 20:49
下载不见运行也出现这个问题吗

下载了附件，删除表格里已经插入好的照片，把导出照片和导出区域照片文件夹里原胡的照片删除，再运行三个程序，才发现我刚才说到的情况。

fxl447098457

xl6403 发表于 2018-11-15 21:03
这句前面怎么加了以下代码

你代码都没找对地方。。。。见红色部分。导出图片的代码。
            With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
                .Parent.Select
                .Paste
                .Export pth & shp.TopLeftCell.Offset(0, -1) & ".jpg"
                .Parent.Delete
            End With

xl6403

fxl447098457 发表于 2018-11-15 21:07
你代码都没找对地方。。。。见红色部分。导出图片的代码。
            With ActiveSheet.ChartObjects. ...

加了这句后，导出照片这部分代码就有用了，能导出照片。区域导出照片这部分代码导出的照片就不是空白照片了。谢谢。

爱笑的萌兽

版主大大，学习中发现一个小问题。

在添加图片的代码中，前面有几句，作用应该是删除之前插入过的图片吧。
For Each shp In ActiveSheet.Shapes
        If shp.Type = 13 Then shp.Delete
Next shp

对于用pictures.insert插入的图片，只是添加了一个链接，所以已经插入的图片的msoshapetype就成了msolinkedpicture啦。要改成shp.type=11才是删除掉之前已经插入的图片

爱笑的萌兽

版主大大，难道又是高版本惹的祸，哈哈~~
删除已经插入的图片，和导出图片时，
判断条件shp.type的值都要改成11才行得通

liulang0808

爱笑的萌兽 发表于 2018-12-10 23:12
版主大大，难道又是高版本惹的祸，哈哈~~
删除已经插入的图片，和导出图片时，
判断条件shp.type的值都要 ...

这个跟版本没有关系的，楼主可以查帮助，见截图另外这个帖子处理的是插入图片的。

爱笑的萌兽

liulang0808 发表于 2018-12-11 08:26
这个跟版本没有关系的，楼主可以查帮助，见截图另外这个帖子处理的是插入图片的。

版主大大，可能我没表述明白，直接上动图吧，
第一个是shp.type=13时，执行后没有导出图片。


第二个是shp.type=11时，就可以了

立即窗口查看 msgbox activesheet.shapes(4).type 结果也是11

爱笑的萌兽

liulang0808 发表于 2018-12-11 08:26
这个跟版本没有关系的，楼主可以查帮助，见截图另外这个帖子处理的是插入图片的。

重新下载了附件，发现问题所在了。原来图片最初不是通过.pictures.insert方法添加的呀~~~汗。
我学习您的附件时，先是把以前导入的图片给删掉，然后运行了一次导入图片的代码。所以shape.type就从msopicture变成了msolinkedpicture了。~~~汗