Fun one - I have a user form that opens with an image embedded, I want a different image to show approx. 1% of the time.

[RockandGrohl]

Just to give the staff using it a nice surprise....

Thinking I could use "Randbetween" 1-100 and say if it's 1 then show image A, if it's 2 then show image B, if not then show image C.


Image C would therefore be the default with 98% chance of showing, where image A and B have a 1% chance.

Can anyone help with the specifics? Thanks.

 

[MickG]

3 Image controls with Images embedded named "Image1" to "Image3"

Private Sub UserForm_Initialize()
Dim Num As Long, ctrl As Control, n As Long
Num = Application.RandBetween(1, 100)
For n = 1 To 3
  Me.Controls("Image" & n).Visible = False
Next n
   Select Case True
   Case Num = 1: Image1.Visible = True
   Case Num = 2: Image2.Visible = True
   Case Num > 2: Image3.Visible = True
End Select
  
End Sub

 

[RockandGrohl]

3 Image controls with Images embedded named "Image1" to "Image3"

Private Sub UserForm_Initialize()
Dim Num As Long, ctrl As Control, n As Long
Num = Application.RandBetween(1, 100)
For n = 1 To 3
  Me.Controls("Image" & n).Visible = False
Next n
   Select Case True
   Case Num = 1: Image1.Visible = True
   Case Num = 2: Image2.Visible = True
   Case Num > 2: Image3.Visible = True
End Select
  
End Sub

Haha thanks, this is bang on. Cheers!

 

[MickG]

You're welcome