Discussion :

[joums]

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+

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joums]

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

merci

[Krovax]

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

[joums]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?