rechtermuiskliken op logo's

[assessor]

In een excel (v2013) sheet heb ik in de linker bovenhoek twee (dit worden er met de tijd meer) logo's over elkaar geplaatst.
Klikken met links op het logo brengt je gelijk naar de web pagina van het bedrijf.
Als ik met rechts op de logo's klik kan ik met de optie "send to back" door de logo's 'scrollen'.
Dit wou ik nu gebruiken on d.m.v. een aangemaakte knop de gewenste logo te selecteren, simpel toch?

Sub SelectLogo()
    ActiveSheet.Shapes.Range(Array("irc_mi")).Select
    Selection.ShapeRange.ZOrder msoSendToBack
End Sub

Nee dus, alleen macro opnemen werkt niet altijd... wat wel... iemand?

vast dank.

 

[HSV]

Bv. als je twee of meer logo's hebt en een knop op je werkblad.

Sub SelectLogo()
Dim sh As Shape
 For Each sh In ActiveSheet.Shapes
  If sh.ZOrderPosition > 2 Then
   sh.ZOrder msoSendToBack
    Exit For
   End If
   Next sh
End Sub

 

[assessor]

Dank voor je reactie HSV, andere zaken slokken momenteel mij tijd op maar ik ga hiermee aan de gang en laat het je weten.

Inmiddels ben ik hier een paar uur mee aan het stoeien maar ik krijg het niet voor elkaar, zelfs GOOGLE laat mij in de steek.
Link ik deze code aan mijn, voorlopig 2 images, img2000 en img2002 (embedded)?

HELP!