Images verplaatsen met commandknop

[Teebee]

Hallo,


is het mogelijk om met een commandoknop images/icons te verplaatsen/switchen van plaats, zodat de imagedie in cel C3 staat, verplaatst wordt naar C4, en de image die in C4 staat verplaatst wordt naar C3?



mvg,
T.

 

[edmoor]

Dan moet je er wel voor zorgen dat de plaatjes gelijke afmetingen hebben:

img1 = Shapes("Image1.png").Top
img2 = Shapes("Image2.jpg").Top
Shapes("Image1.png").Top = img2
Shapes("Image2.jpg").Top = img1

 

[Teebee]

Hallo,

ik weet niet goed hoe ik hiermee verder moet.

om de tekst naar onderen te krijgen doe ik dit:

Sub Pijlomlaag1_Klikken()

Dim var, var2 As Variant
var = Range("B3").Value
var2 = Range("B4").Value

Range("B3").Value = var2
Range("B4").Value = var
End Sub

maar ik heb geen idee hoe ik de fotos die in cel C3 / C4 staan kan verplaatsen. (deze hebben zover ik weet geen benaming zoals image1.png).

 

[edmoor]

De code voor het verplaatsen van die foto's staat in #2.
Dat was de vraag die je stelde.

 

[edmoor]

Dit is het test document dat je plaatste, maar nu met een knop om de plaatjes van plek te wisselen.
De code achter de knop is de code die in #2 staat.
En ja, die plaatjes hebben echt die namen.
Daarnaast staan plaatjes nooit in een cel, die liggen op het werkblad.

 

[Teebee]

Bedankt.

Hier kan ik mee verder. :thumb: