Power Point MACRO routine to get model forecasts
Posted: Sat Dec 30, 2006 4:02 pm
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
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