office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

導齣Excel工作錶中所有形狀爲圖片,要經過ChartObjects的轉換

2021-01-29 08:00:00
zstmtony
原創
3080

導齣Excel工作錶中所有形狀爲圖片,要經過ChartObjects的轉換。相關的代碼如下


Dim shp As Shape


For Each shp In ActiveSheet.Shapes
        shp.CopyPicture
        ActiveSheet.Paste
            With ActiveSheet.ChartObjects.Add(0, 0, shp.Width, shp.Height).Chart
                .Paste
                .Export "D:\Export" & shp.Name & ".jpg", "JPG"
                Selection.Delete
                .Parent.Delete
            End With

Next
分享