Power Point MACRO routine to get model forecasts

Everything else. For discussion about anything from meteorology to astronomy, technology, sports and politics. No spam or inappropriate content, please.
Post Reply
WxFish
Member
Posts: 29
Joined: Sun May 14, 2006 6:28 pm
Location: Katy, Tx

Power Point MACRO routine to get model forecasts

Post by WxFish »

Here is a MACRO I have written to grap NOAA NCEP model forecast. It allow me to loop the forecast and do draw on the maps etc.

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

ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "Current"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.hpc.ncep.noaa.gov/sfc/namussfcwbg.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=23, Top:=17, Width:=675, Height:=506).Select
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=3, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.rap.ucar.edu/weather/upper/upaCNTR_500.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-23, Top:=-113, Width:=768, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=4, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "500mb Vorticity"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=5, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_000l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=6, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_006l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=7, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_012l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=8, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_018l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=9, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=10, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=11, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=12, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=13, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=14, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=15, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=16, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=17, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=18, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=19, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=20, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=21, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=22, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=23, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=24, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=25, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=26, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=27, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=28, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=29, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=30, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=31, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=32, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With



ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=33, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "700mb RH"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=34, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_000l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=35, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_006l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=36, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_012l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=37, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_018l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=38, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=39, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=40, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=41, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=42, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=43, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=44, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=45, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=46, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=47, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=48, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=49, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=50, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=51, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=52, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=53, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=54, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=55, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=56, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=57, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=58, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=59, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=60, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=61, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... 0_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With






ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=62, Layout:=ppLayoutTitle).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes("Rectangle 2").Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
With ActiveWindow.Selection.TextRange
.Text = "850mb RH"
With .Font
.Name = "Times New Roman"
.Size = 44
.Bold = msoFalse
.Italic = msoFalse
.Underline = msoFalse
.Shadow = msoFalse
.Emboss = msoFalse
.BaselineOffset = 0
.AutoRotateNumbers = msoFalse
.Color.SchemeColor = ppTitle
End With
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=63, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_000l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=64, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_006l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=65, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_012l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=66, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_018l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=67, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=68, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=69, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=70, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=71, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=72, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=73, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=74, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=75, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=76, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=77, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=78, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=79, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=80, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=81, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=82, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=83, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=84, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=85, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=86, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=87, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=88, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=89, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=90, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... v_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With







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

WxFish
Member
Posts: 29
Joined: Sun May 14, 2006 6:28 pm
Location: Katy, Tx

rest of the macro

Post by WxFish »

sorry for the long script. The Macro was longer than I thought. The last part of it cut off in the middle of creating the 96th slide. The folloing is the rest of the MACRO. This repeats the last 12 lines of the previous script.

ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=96, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_024l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=97, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_030l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=98, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_036l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=99, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_042l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=100, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_048l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=101, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_054l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=102, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_060l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=103, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_066l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=104, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_072l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=105, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_078l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=106, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_084l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=107, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_090l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=108, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_096l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=109, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_102l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=110, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_108l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=111, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_114l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=112, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_120l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=113, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_126l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=114, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_132l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=115, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_138l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=116, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_144l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=117, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_150l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=118, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_156l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.Selection.Unselect
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=119, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_162l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With
ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=120, Layout:=ppLayoutBlank).SlideIndex
ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:="http://www.nco.ncep.noaa.gov/pmb/nwprod ... p_168l.gif", LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=-119, Top:=-113, Width:=960, Height:=768).Select
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 0.7, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
End With
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 160#
.IncrementTop 115
End With

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


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

WxFish
Member
Posts: 29
Joined: Sun May 14, 2006 6:28 pm
Location: Katy, Tx

PS a couple thigs about the MACRO

Post by WxFish »

1) This is MACRO for 12Z model runs, I have another macro for 0Z runs if anybody is interested.

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

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

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

WxFish
Member
Posts: 29
Joined: Sun May 14, 2006 6:28 pm
Location: Katy, Tx

One more thing

Post by WxFish »

Before you start the macro you need to delete all of the slides from your previous run. So my sequence to run this macro is:

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

rolsch
Member
Posts: 38
Joined: Sat Jul 30, 2005 10:14 am
Location: Germany
Contact:

Post by rolsch »

Wow,
nice idea - powerpoint.

There are pictures for europe available?

Post Reply