将工作簿的图片导出来

张雄友

执行代码发现导不出图片？

张雄友

工作簿中的控件按钮不用导出，只导图片就行了。

JX_shangrila

Sub 导出图片()
    Dim i As Integer
    Dim shp As Shape
    Dim MySheet As Worksheet
    For Each MySheet In ThisWorkbook.Worksheets
        MySheet.Select
        For Each shp In MySheet.Shapes
           If shp.Type = msoPicture Then
              i = i + 1
              shp.Select
              Selection.CopyPicture
              With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
                   .Paste
                   .Export ThisWorkbook.Path & "\" & i & ".jpg"
                   .Parent.Delete
              End With
           End If
        Next
    Next
End Sub

张雄友

JX_shangrila 发表于 2016-6-30 21:25
Sub 导出图片()
    Dim i As Integer
    Dim shp As Shape

导出的图片能以图片本身的名字命名吗？

JX_shangrila

任何图片在导入（插入）工作表后，系统是按微软设置的默认名称和序号对图片重命名所以原来的图片名称已经不存在了；除非在导入图片时进行处理。按你附件可以导出的图片名称是picture1到picture5。
下面提供一个图片导入导出excel保持原名称不变的gif示例。

02761752696

JX_shangrila 发表于 2016-7-1 10:13
任何图片在导入（插入）工作表后，系统是按微软设置的默认名称和序号对图片重命名所以原来的图片名称已经不 ...

老师能把你这个 附件分享一下吗？学习学习啊 ，谢谢了

张雄友

JX_shangrila 发表于 2016-7-1 10:13
任何图片在导入（插入）工作表后，系统是按微软设置的默认名称和序号对图片重命名所以原来的图片名称已经不 ...

就是要你的这个效果，可以分享吗？

张雄友

JX_shangrila 发表于 2016-7-1 10:13
任何图片在导入（插入）工作表后，系统是按微软设置的默认名称和序号对图片重命名所以原来的图片名称已经不 ...

很是期待：：