office交流網--QQ交流群號

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

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

Excel vba使工作表中的圖形對象另存為圖片

2019-11-02 17:09:00
tmtony8
原創
404

在Excel中,我們可以在插入-形狀 插入圖形


下面代碼可以對插入的shape形狀復制粘貼成gif格式的圖片

Sub SavePic()

    Dim shp As Shape, i As Integer
     With ActiveSheet
        For i = 1 To .Shapes.Count
            Set shp = .Shapes(i)
            shp.Copy
            With .ChartObjects.Add(0, 0, shp.Width, shp.Height + 5).Chart
                .Paste
                .Export ThisWorkbook.Path & "" & i & ".gif"
                '.Parent.Delete
            End With
        Next
    End With

End Sub



復制粘貼成功后,shape對象另存為圖片。選擇對象,可以看到兩者的區別

    分享
    北京十一选五基本走势