使用VBA从工作表中读图片，以及给工作表中写文件

因为工作的原因，需要用到VBA，碰到读图片和写图片：

Sub Macro01()                 '从工作表中保存图片

    Application.ScreenUpdating = False

    Dim pth, shp, n
    pth = ThisWorkbook.Path & "\导出图片\"
    For Each shp In ActiveSheet.Shapes
    If shp.Type =  Then
        n = n +
        shp.Copy
        With ActiveSheet.ChartObjects.Add(, , shp.Width, shp.Height).Chart
            .Parent.Select
            .Paste
            .Export pth & shp.TopLeftCell.Offset(, -) & ".jpg"
            .Parent.Delete
        End With
    End If
    Next
    Application.ScreenUpdating = True

End Sub

Sub Macro02()                   '从文件夹中读写图片

    Dim fso, shp, j, rng, str1, w, y

    Set fso = CreateObject("Scripting.FileSystemObject")
    Application.ScreenUpdating = False
    For Each shp In ActiveSheet.Shapes
    If shp.Type =  Then shp.Delete
    Next shp
    For j =  To
        Cells(j, ).Select
        Set rng = Selection
        str1 = ThisWorkbook.Path & "\导出图片\" & Cells(j, ) & ".jpg"
        If fso.FileExists(str1) Then
        ActiveSheet.Pictures.Insert(str1).Select

        With Selection
            .Top = rng.Offset(, ).Top
            .Left = rng.Offset(, ).Left
            .Height = rng.Offset(, ).Height
            .Width = rng.Offset(, ).Left - rng.Left -
        End With
        End If
    Next j

    Application.ScreenUpdating = True

End Sub

Sub Macro04()                       '删除工作表中的图片

    Application.ScreenUpdating = False

    Dim oSP As Shape
    For Each oSP In ActiveSheet.Shapes
        If oSP.Type =  Then
        oSP.Delete
        End If
    Next

    Application.ScreenUpdating = True

End Sub