Random afbeeldingen in Excel

[klinckenberg]

Hoi,

ik ben al een tijdje aan het zoeken naar een script, maar helaas. Wie kan me helpen?

Ik heb een excel met twee tabbladen. Op tabblad 2 staan plaatjes.
Op tabblad 1 staat een knop en een lege image. Nu wil ik wanneer ik op de knop klik dat de lege image random gevuld wordt met een plaatje vanuit het tweede tabblad.

Hoe doe ik dit?

Alvast bedankt.

 

[snb]

Hoeveel plaatjes staan er op het 2e blad ?

Als het er 10 zijn kan het met:

Sub tst()
  Randomize
  Blad2.Shapes(Int(Rnd * 10)).CopyPicture
  Blad1.Shapes(1).Delete
  Blad1.Paste Blad1.Cells(4, 4)
End Sub

 

[klinckenberg]

Dank je. Het lukt niet wel, soort van. Alleen wanneer ik op de knop heb geklikt verdwijnt deze....

zie excel

 

[Wigi]

Alleen wanneer ik op de knop heb geklikt verdwijnt deze...

Een knop is ook een Shape.

M.a.w. de Shape die je wil deleten, draagt nummer 2:

Blad1.Shapes(2).Delete

 

[snb]

onderzoek of een vorm een knop of een afbelding is:

Sub tst()
    For Each sh In Blad1.Shapes
        If sh.Type = 13 Then
            sh.Delete
            Exit For
        End If
    Next
End Sub