Sub ki295()
Dim grf As Chart
Dim pnam As String
'保存先パス
phn = ActiveWorkbook.Path
     If phn = "" Then
         MsgBox "このブックと同じフォルダ−へGIFを保存します" & Chr(10) _
        & "パス未定の為ブックを1度保存してから実行して下さい"
        Exit Sub
     End If

'コピ−個所指定
    On Error Resume Next
    pnam = Selection.Name
    If Err = 1004 Then
       MsgBox "図を選んでから実行して下さい"
       On Error GoTo 0
       Exit Sub
    End If
       On Error GoTo 0
'画像コピ−
    ActiveSheet.Shapes(pnam).Select
    hei = Selection.ShapeRange.Height
    wid = Selection.ShapeRange.Width
    Selection.Copy
'チャ−ト枠作成
  Set grf = ActiveSheet.ChartObjects.Add(0, 0, wid + 8, hei + 8).Chart
  grf.Paste
  ggg1 = grf.Name
  ggg2 = Mid(ggg1, InStr(1, ggg1, "グ", 1))
    
'枠線なし
    ActiveSheet.ChartObjects(ggg2).Activate
    ActiveChart.ChartArea.Select
    Selection.Border.LineStyle = 0
'gif保存
   grf.Export phn & "\" & pnam & ".gif"
'仮作成の図形削除
   grf.Parent.Delete
   Range("A1").Select
End Sub