Afbeelding laten bewegen

[Excelll]

Hallo lezer,

Ik wil maken met macro's dat als ik op de pijltjestoetsen druk, dat het plaatje automatisch naar links, boven, onder en rechts gaat (afhankelijk van welke toets je gebruikt). In dit geval heb ik een Mario plaatje gebruikt. In bijlage vind u het bestand.
Bekijk bijlage Mariospelvoorbeeld.xlsm
Kan iemand mij helpen? Alvast bedankt!

Excelll

 

[Spiesse]

Sub verplaatst()
With ActiveSheet.Shapes.Range(Array("picture 1")).Select
    Selection.ShapeRange.IncrementLeft -0.6
    Selection.ShapeRange.IncrementLeft 0.6
    Selection.ShapeRange.IncrementTop -0.6
    Selection.ShapeRange.IncrementTop 0.6

End With
End Sub

deze macro zet je afbeelding alleszins 1 stapje naar links, 1 stap naar rechts, 1 stap naar boven en 1 stap naar onder...

nu nog combineren met je pijltjes en je bent er?

Ik zoek ook nog verder. Vind deze wel een leuke