I would like to rework the macro below and be able to Insert --> Picture --> From File (chose .cgm file) and then resize the graph (as opposed to have to put the filename in the code and have to change it for each graph). Can someone tell me how to do this/

Sub FormatGraph()
'
' FormatGraph Macro
'
'
Documents.Add
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = InchesToPoints(1.5)
.BottomMargin = InchesToPoints(1)
.LeftMargin = InchesToPoints(1)
.RightMargin = InchesToPoints(1)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(11)
.PageHeight = InchesToPoints(8.5)
.FirstPageTray = wdPrinterFormSource
.OtherPagesTray = wdPrinterFormSource
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
End With

Selection.InlineShapes.AddPicture FileName:= _
"S:\\G_Time_Disc.cgm" _
, LinkToFile:=False, SaveWithDocument:=True
Selection.TypeParagraph
Selection.WholeStory
Application.Run MacroName:="ResizeLandscapeGraphs"
Selection.MoveUp Unit:=wdLine, Count:=1


End Sub

Thanks.