Attribute VB_Name = "Module1"
'■　マクロ５００連発＜第２段＞
'
'　埋め込みグラフをGIF形式で保存する

'  Copyright(C) 2000 Sunago
'

Option Explicit

Sub Macro1()
Dim strFile As String

    With Worksheets("Sheet1")
        '保存するファイル名を設定する
        strFile = Path(ThisWorkbook.Path) & _
            .ChartObjects(1).Name & ".gif"
        '埋め込みグラフをファイルへ保存する
        '
        ' Export(FileName, FilterName, Interactive)
        '
        '   FileName    保存するファイル名を設定する
        '   FilterName  図形フィルタの言語独立型の名前を指定します
        '   Interactive フィルタ固有のダイアログを表示する場合はTrue
        '
        .ChartObjects(1).Chart.Export _
            FileName:=strFile, _
            FilterName:="GIF", _
            Interactive:=True
    End With
        
End Sub

'/* パスの終わりを\にする関数 */
Function Path(arg1) As String
    
    If Right(arg1, 1) = "\" Then
        Path = arg1
    Else
        Path = arg1 & "\"
    End If
End Function