mouvement d'image sous excel

Bonjour,
J'aimerai déplacer des images sous excel.
Je m'explique, je voudrais déplacer une image d'un point A vers un point B.
Afin de créer le mouvement de l'image comme une animation flash par exemple.
J'ai eu l'occasion de voir cela sur un fichier .xls mais je n'ai pas eu la possibilité de voir le code.
merci de votre aide
A+ :ccool:

Bonjour,
Pour avoir le code qui déplace ton image utilise l'enregistreur de macro, ensuite il va te faloir une temporisation et un boucle. Exemple

Code:

---

1 2 3 4 5

for i = 1 to 1000 Shapes("Picture 1").IncrementTop -5# sleep 50 doevents next i

---

avec en tête de module

Code:

---

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

---

Merci pour c bout de code, je vais voir comment je peux faire.
Le but final serait que j'insere une image en haut à gauche de la cellule B4 par exempe. Et que je reprenne cette même image que je place sur la cellule B4 mais en bas à droite.
Avec un bouton "play", je vois le déplacement de l'image dans cette cellule.
En espérant ne pas avoir été trop confu :oops:

merci

Pour tout ce qui est d'insérer l'image je te laisse faire mumuse avec l'enregistreur de macro

Pour ce qui est d'avoir le code des différente déplacement pareille.
Tu la déplace de A à B ensuite tu regarde le code tu a un incrementTop et IncrementeLeft a chaque fois d'une certaine valeur, comme tu est malin tu te dis que si tu fait une boucle de 1000 itération a chaque passage tu déplace d'un millième du déplacement totale, ensuite tu jous sur la valeur su sleep pour la vitesse

ok ce déplacement d'un millième créer l'illusion du mouvement
je vais essayer merci pour ton aide

Citation:

---

Envoyé par joums

ok ce déplacement d'un millième créer l'illusion du mouvement
je vais essayer merci pour ton aide

---

j'ai suivi tes conseils pour la macro,
j'arrive bien à déplacer l'image par une boucle
Mais j'ai un probleme, l'image ne s'arrete pas là où je veux.
Par exemple si le déplacement est de :
IncrementTop -120

avec la macro suivante :

Code:

---

1 2 3 4 5 6 7

For i = 1 To 1000 ActiveSheet.shapes("picture1").Select   Selection.ShapeRange.IncrementTop -120 /1000 '(je divise par le nombre de boucle) Sleep 50 DoEvents Next i

---

l'image se déplace mais n'arrive pas à l'endroit souhaité (IncrementTop -120 du départ)

Comment puis-je faire?

Essaye

Code:

---

1 2 3 4 5

For i = 1 To 1000 ActiveSheet.shapes("picture1").IncrementTop -0.120 Sleep 50 DoEvents Next i

---

sinon c'est que ce n'est pas 120 ;)

Euh désolé, mais ca ne marche pas :cry:
Pourtant la valeur de l'incrementTop est bien de -120
en faisant une macro sans la boucle c'est ok
Quand on intègre la boucle le déplacement est supérieur à -120 ??? :roll:

C'est vrai que ca fait des truc marrant

autre solution

Code:

---

1 2 3 4 5 6 7 8

Dim i As Integer, ini As Single, final As Single ini = ActiveSheet.Shapes("Picture 10").Top final = ActiveSheet.Shapes("Picture 10").Top + 120 For i = 1 To 1000 Shapes("Picture 10").Top = ini - (final - ini) / 1000 * i Sleep 50 DoEvents Next i

---

c'est peut être un bug ?
En tout cas le code que tu m'as mis est ok
Il y a juste le fait d'écrire

Code:

---

Shapes("Picture 10")

---

qui ne marche pas
je suis obliger de mettre

Code:

---

ActiveSheet.shapes("picture1")

---

Pour continuer le développement de cette macro, je dois connaitre les déplacement des images avant de lancer le déplacement depuis l'endroit initial, peux t'on le faire avec l'enregistreur de macro ? Ex: endroit initial de l'image = haut gauche de la cellule A10
endroit final de l'image = bas droit de la cellule A10
Lorsque je fais le déplacement manuellement ca m'enregistre automatique les coordonnées (top, left, etc...) qui peuvent être repris dans la macro

Tu veux bien cliquer sur répondre et non sur citer ou alors virer la citation? Car ca la alourdi tes message c'est assez ennuyeux a lire.


Picture 10 c'est le non de mon image test toi tu appelle la tienne comme tu veux, tu peux même l'appeler bob
Si tu veux connaitre les valeur les position de ton image le plus simple c'est encore de demander

Code:

---

1 2	msgbox "Valeur Top : " & Shapes("Picture 10").Top & chr(13) & "Valeur Left : " & Shapes("Picture 10").left

---

Tu positionne l'image ou tu veux tu lance la macro et tu as la position.

Ce n'est pas le nom de l'image qui pose problemem mais le fait de mettre uniquement shapes("nom_de_l'image)

En fait, il faudrait que la macro qui effectue le déplacement récupere les valeurs de position (initial et finale) pour pouvoir faire le déplacement.

Ps: dsl pour les citations

comment dire la position initiale c'est déjà fait la position final j'ai pris la position initiale plus une certaine valeur. A toi de voir comment faire.
Tu peux faire comme moi et récupérer la position actuelle de limage et pour le final ajouter un certain nombre ou directement donenr la valeur. Moi je ne déciderais pas a ta place.
Je t'ai donné le code pour connaitre les valeur des positon et pourvoir les entrer "en dure" ou faire un rapide calcul et faire la différence. Bref tu as toutes les cartes en mains a toi de jouer

Je définirai la macro en plusieurs étapes
J'ai une image
1/ recuperer la position initial
2/ recuperer la position final
3/ calculer le déplacement
4/ remettre image dans sa position initial
5/ boucle pour initier le déplacement

Qu'en penses tu ?

A moi de jouer .:ccool:
Encore merci pour ton aide