Save an Excel chart as a GIF file. Use this script:

Sub savechart()

If TypeName(Selection) = “ChartArea” Then

userFname = InputBox(“Filename of chart” _

& ” file?”, “Save chart”, “excelchart”)

If userFname = “” Then Exit Sub

userNameAndPath = ThisWorkbook.Path & “\” & userFname & “.gif”

ActiveChart.Export Filename:=userNameAndPath, FilterName:=”GIF”

MsgBox “Chart is saved as” & Chr(13) & userNameAndPath

Else

userReply = MsgBox(“Please select a Chart Area, ” _

& “then run macro again”, vbOKOnly, “Error in selection”)

End If

End Sub

Question: When I run Internet Explorer, the window opens a tiny window or sometimes i cant even find it. How do I reset it to open in a full window all the time?

Solution: Resize a IE explorer window to your preference. Close the window by holding the Shift key and clicking the X icon in its top-right-hand corner. The next time you open IE, it will remember you setting. Reapply this trick as needed.