The Weather Forecasting Forum

Discussions about the latest in meteorology, programs, tools, and techniques
It is currently Sun Oct 22, 2017 3:38 pm

All times are UTC




Post new topic Reply to topic  [ 5 posts ] 
Author Message
PostPosted: Sat Dec 30, 2006 4:02 pm 
Offline
Member

Joined: Sun May 14, 2006 6:28 pm
Posts: 29
Location: Katy, Tx
Here is a MACRO I have written to grap NOAA NCEP model forecast. It allow me to loop the forecast and do draw on the maps etc.

Sub forecast()
'
' Macro recorded 1/16/2004 by broberg_bruce
'

ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "Current"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namussfcwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=3, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.rap.ucar.edu/weather/upper/upaCNTR_500.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-113, Width:=768, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=4, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "500mb Vorticity"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=5, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_000l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=6, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_006l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=7, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_012l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=8, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_018l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=9, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=10, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=11, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=12, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=13, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=14, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=15, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=16, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=17, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=18, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=19, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=20, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=21, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=22, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=23, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=24, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=25, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=26, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=27, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=28, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=29, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=30, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=31, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=32, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_500_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With



ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=33, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "700mb RH"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=34, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_000l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=35, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_006l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=36, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_012l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=37, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_018l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=38, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=39, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=40, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=41, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=42, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=43, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=44, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=45, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=46, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=47, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=48, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=49, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=50, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=51, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=52, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=53, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=54, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=55, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=56, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=57, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=58, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=59, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=60, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=61, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_700_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With






ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=62, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "850mb RH"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=63, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_000l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=64, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_006l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=65, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_012l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=66, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_018l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=67, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=68, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=69, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=70, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=71, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=72, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=73, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=74, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=75, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=76, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=77, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=78, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=79, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=80, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=81, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=82, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=83, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=84, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=85, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=86, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=87, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=88, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=89, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=90, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_85v_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With







ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=91, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "MSLP & Thickness"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=92, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_000l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=93, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_006l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=94, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_012l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=95, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_018l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=96, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
Activ


Top
 Profile  
 
 Post subject: rest of the macro
PostPosted: Sat Dec 30, 2006 4:08 pm 
Offline
Member

Joined: Sun May 14, 2006 6:28 pm
Posts: 29
Location: Katy, Tx
sorry for the long script. The Macro was longer than I thought. The last part of it cut off in the middle of creating the 96th slide. The folloing is the rest of the MACRO. This repeats the last 12 lines of the previous script.

ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=96, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=97, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=98, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=99, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_042l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=100, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=101, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=102, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=103, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=104, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=105, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=106, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=107, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=108, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=109, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=110, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=111, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=112, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=113, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=114, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=115, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=116, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=117, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=118, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=119, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=120, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod/analysis/namer/gfs/12/images/gfs_slp_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With

ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=121, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "Surface"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With


ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=122, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namussfcwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=123, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc00wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=124, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc03wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=125, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc06wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=126, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc09wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=127, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc12wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=128, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc15wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=129, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc18wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=130, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namfntsfc21wbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=131, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namussfcwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=132, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/basicwx/92fwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=133, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/basicwx/92fwbga.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=134, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/basicwx/94fwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=135, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/basicwx/94fwbga.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=136, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/basicwx/96fwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=137, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/basicwx/98fwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=138, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/medr/9jhwbgloop.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 210#
.IncrementTop 120
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=139, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/medr/9khwbgloop.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 210#
.IncrementTop 120
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=140, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/medr/9lhwbgloop.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 210#
.IncrementTop 120
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=141, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/medr/9mhwbgloop.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 210#
.IncrementTop 120
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=142, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/medr/9nhwbgloop.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-17, Width:=768, Height:=576).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.6, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.6, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 210#
.IncrementTop 120
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=143, Layout:=ppLayoutBlank).SlideIndex
End Sub


Top
 Profile  
 
PostPosted: Sat Dec 30, 2006 4:30 pm 
Offline
Member

Joined: Sun May 14, 2006 6:28 pm
Posts: 29
Location: Katy, Tx
1) This is MACRO for 12Z model runs, I have another macro for 0Z runs if anybody is interested.

2) NCEP puts the maps out as they are produced by the model. So if you run the macro before the model is finnished running you will get a mix of current model run and yesterdays model run. The models are usually finished running by 17Z.

3)I usually have to rearrange the past surface maps (slides 123-130) to get them in the right order.

4)I run the loop by either using animation or looking at maps in "slide show" mode and using page up/down to look at the file.


Top
 Profile  
 
 Post subject: One more thing
PostPosted: Sat Dec 30, 2006 5:33 pm 
Offline
Member

Joined: Sun May 14, 2006 6:28 pm
Posts: 29
Location: Katy, Tx
Before you start the macro you need to delete all of the slides from your previous run. So my sequence to run this macro is:

1)open power Point
2)click on "enable macros"
3)delete all the slides
4)run macro
5)wait until macro finishes running
6)sort the past surface maps (slides 121-130)


Top
 Profile  
 
 Post subject:
PostPosted: Thu Jan 11, 2007 8:43 pm 
Offline
Member

Joined: Sat Jul 30, 2005 10:14 am
Posts: 38
Location: Germany
Wow,
nice idea - powerpoint.

There are pictures for europe available?


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 5 posts ] 

All times are UTC


Who is online

Users browsing this forum: Bing [Bot] and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Group