object variable set or not??? Challenging \ Perplexing

[zcu]

Hi

I'm a newbie please be nice

I'm trying to write an if then else and I'm referring to the same variable. Yet when the if is true the variable is an error "not set".

But if it is false the code works perfectly.

For i = 1 To 10
'get student name from worksheet
x = ox.Worksheets("data").Cells(21, 2 + i).Text

With ActivePresentation.Slides(2).Shapes("name" & i)
.TextFrame.TextRange.Text = x
End With
'check if student pic in file

On Error Resume Next
xipath = Dir("C:\ProgramData\Learning Excellence\Behavior\Pictures\" & x & ".jpg")
On Error GoTo 0

' if not = forecolor white
If xipath = "" Then
With ActivePresentation.Slides(2).Shapes("pic" & i)
.Fill.ForeColor.RGB = RGB(255, 255, 255)
End With

' if yes = forecolor picture
Else
With ActivePresentation.Slides(2).Shapes("pic" & i)
.Fill.UserPicture ("C:\ProgramData\Learning Excellence\Behavior\Pictures\" & x & ".jpg")
End With
End If
   Next i

[JohnWilson]

Try:
If xlPath Is Nothing Then


Else

End If

[zcu]

Thanks for thinking about it.

After i posted i did troubleshooting for an hour and figured it out.

For some reason (perhaps a bug) after fill is set to user picture vba can't change the fill to rgb. So i just used a white picture instead and it worked.

[JohnWilson]

"For some reason (perhaps a bug) after fill is set to user picture vba can't change the fill to rgb."

It's not a bug and vba can change it to RGB you just need to understand how it works

Your code has changed the fill type to userpicture you need to reset it to "Solid" by adding something like

ActivePresentation.Slides(2).Shapes("pic" & i).Fill.Solid