从Excel批量导出图片

时　间:2011-07-22 00:00:00
作　者:Aaron   ID：20267  城市：闵行
摘　要:从Excel批量导出图片
正　文:

思路：选择图片→复制为图片→建立一个空白的图表→粘贴图片→导出为独立的文件

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim ch As Chart
    Dim cht As ChartObject
    Dim sh As Shape
    Dim strPath As String
    For i = 1 To ActiveSheet.Shapes.Count
        Set sh = ActiveSheet.Shapes(i)

        strPath = Application.Workbooks(1).Path & "\ToolPicture"
        sh.CopyPicture
        Set cht = ActiveSheet.ChartObjects.Add(0, 0, 200, 200)
        With cht
            .Chart.Paste
            .Chart.Shapes(0).Height = 200
            .Chart.Shapes(0).Width = 200
            If Len(sh.AlternativeText) <> 0 Then
                strPath = strPath & "\" & sh.AlternativeText & ".jpg"
                .Chart.Export (strPath)
            End If
            .Delete
        End With

    Next

End Sub