Page 1 of 1

Power Point MACRO routine to get model forecasts

Posted: Sat Dec 30, 2006 4:02 pm
by WxFish
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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... 0_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... v_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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

rest of the macro

Posted: Sat Dec 30, 2006 4:08 pm
by WxFish
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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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 ... p_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

PS a couple thigs about the MACRO

Posted: Sat Dec 30, 2006 4:30 pm
by WxFish
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.

One more thing

Posted: Sat Dec 30, 2006 5:33 pm
by WxFish
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)

Posted: Thu Jan 11, 2007 8:43 pm
by rolsch
Wow,
nice idea - powerpoint.

There are pictures for europe available?