I will try to make this easy to follow.
I am trying to go line by line on my userform's listbox, finding only
part of the text I need in each line, and doing if..then statements to
format corresponding shapes in powerpoint.
I got to the point where I can programmatically open Powerpoint and
save as a new file. I just don't understand how to get the text in the
listbox and:
1. Reference the named shape in the slide based on the listbox row's text
AND
2. Format the referenced shape based on that same line in the listbox
The listbox is named lboQueue.
Example:
...
Dim Green As String
Dim Amber As String
Dim Red As String
Green = "Make Line Green"
Amber = "Make Line Amber"
Red = "Make Line Red"
Set pptShape = pptFile.Slides(1).Shapes("Memphis")
If lboQueue = "Memphis." & Green Then
With pptShape
.Line.Visible = msoTrue
.Line.ForeColor.RGB = RGB(0, 204, 0)
End With
ElseIf lboQueue = "Memphis." & Amber & "..." Then
With pptShape
.Line.Visible = msoTrue
.Line.ForeColor.RGB = RGB(255, 153, 0)
End With
ElseIf lboQueue = "Memphis." & Red & "..." Then
With pptShape
.Line.Visible = msoTrue
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
End If
*******************
I have no clue how to search for text in a listbox, so I know the
first line in every If statement is wrong.
Anyone know how to do this?