I have a pre-made powerpoint slide that includes two shapes. The header of the slide (text at the top) is selected via a GUI created with VBA. What I would like is to change the background color of just one of the shapes to a certain color depending on which header has been selected. Is this at all possible?
Here is the code I have that allows the user to select the header:
Private Sub Combo7_DropButtonClick()
If Combo7.ListCount = 0 Then
With Combo7
.AddItem "Generic"
.AddItem "Advisory"
.AddItem "Watch"
.AddItem "Warning"
End With
End If
End Sub
Private Sub Headlines()
'This generates the headline of the slide.
If Combo7 = "Generic" Then
ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _
FileName:="K:\Story\Headline Images\Generic.png", _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, _
Width:=720, Height:=91).Select
ElseIf Combo7 = "Advisory" Then
ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _
FileName:="K:\Story\Headline Images\Advisory.png", _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, _
Width:=720, Height:=91).Select
ElseIf Combo7 = "Watch" Then
ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _
FileName:="K:\Story\Headline Images\Watch.png", _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, _
Width:=720, Height:=91).Select
ElseIf Combo7 = "Warning" Then
ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _
FileName:="K:\Story\Headline Images\Warning.png", _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, Left:=0, Top:=0, _
Width:=720, Height:=91).Select
End If
End Sub
So what I need is something along the lines of:
If Combo7 = "Generic" Then
'Here would be the code to change the background color of the shape that is already on the slide, if possible.
Any help is greatly appreciated! Thanks!