Sub CreateBradBlend RumColaPresenta tion()
Dim pptApp As Object
Dim pptPres As Object
Dim slideIndex As Integer
Dim slide As Object
Dim shape As Object
' Initialize PowerPoint application
Set pptApp = CreateObject("P owerPoint.Appli cation")
pptApp.Visible = True
Set pptPres = pptApp.Presenta tions.Add
' Slide 1: Title...