VBA如何提取表中图片

范德萨

VBA如何提取表中图片，到当前文件夹下

范德萨

备注：不用图表的方法

范德萨

顶下，求高手支招，目前操作方式繁琐，还得先通过图表输出。

phsu

Sub SaveAsPicture()
    Dim ChtObj As ChartObject
    With ActiveSheet.Shapes("Picture 1")
        Set ChtObj = ActiveSheet.ChartObjects.Add(0, 0, .Width, .Height)
       .Copy
    End With
    With ChtObj
        .Border.LineStyle = 0
        .Select
        ActiveChart.Paste
        .Chart.Export ThisWorkbook.Path & "\Picture1.jpg", "jpg"
        .Delete
    End With
End Sub

范德萨

phsu 发表于 2015-9-18 21:26
Sub SaveAsPicture()
    Dim ChtObj As ChartObject
    With ActiveSheet.Shapes("Picture 1")

非常感谢，论坛查了半天都没查出来有符合的方法。

huang1314wei

通过图表输出是最常见的办法，因为有个Chart.Export方法

范德萨

huang1314wei 发表于 2015-9-18 21:47
通过图表输出是最常见的办法，因为有个Chart.Export方法

确实，因此我是先导入图片，然后添加文字，正常单元格拷贝，图片就出来了
如果用图表，得先建立个图表，再将图片导入，然后再设置图表背景颜色，和边框无色，最后通过图表的方式生成，感觉确实繁琐了点
如果单元格拷贝后，图片就能直接另存，这样感觉还是更直接点。

范德萨

一样。。。。。。。。。。。Chart.Export