faire tourner une image

**paulselvan** · 08/08/2008, 10h20

bonjour
il faudrait incruster une image et le faire tourner autour d'un point en manipulant par exemple un scrollbar
la methode "Image" a pour proprieté "left" et "top" qui ne repondent pas au probleme
voyezvous une solution

**jffaber** · 08/08/2008, 11h35

Bonjour,

Voici une méthode pour faire tourner l'image

Code :

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

1
2
3
4
5
Sub ScrollBar1_Change()
 
    ActiveSheet.Shapes("Picture 1").Rotation = ScrollBar1.Value
 
End Sub

**ucfoutu** · 08/08/2008, 12h41

Bonjour, jffaber,

Comment sais-tu qu'il s'agit d'une image sur la feuille et non dans une UserForm ?

Bonjour, paulselvan,

il faut prendre l'habitude de préciser les choses

**paulselvan** · 08/08/2008, 19h44

j'étais sur la piste avec :

Code :

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

1
2
3
Set aa = ActiveSheet.Pictures.Insert("c:\m0.jpg")
aa.Select
Selection.ShapeRange.Rotation = ScrollBar1.Value

le problème avec ça ,est que lors d'une rotation accomplie l'image de la position d'avant n'est pas effacée...ce qui fait qu'il y a une multitude superposition
donc comment l'effacer ?

**JackOuYA** · 08/08/2008, 21h25

Bonsoir,

Vu le forum il semble évident que tu parle d'une image sur une feuille de calcul excel, et dans un autre cas tu aurai bien entendu précisé..

par contre ce que tu nous dis pas c'est comment tu compte mettre ton image dans ta feuille, par macro, comme ton code précédent, mais attention la tu l'insére à chaque appel de ta macro .. il y as probléme..

bon je considére que tu pose au préalable ton image dans la feuil1 de ton classeur excel, tu conserve son nom par défaut (voir en haut à gauche ) : "Image 1" ,place alors ce code dans un module de ton classeur et GO...

Code :

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

1
2
3
4
5
6
Sub YaImage()
 Dim sh As Shape
 Set sh = ThisWorkbook.Sheets("Feuil1").Shapes("Image 1")
 sh.Rotation = sh.Rotation + 10
 Application.OnTime Now + TimeSerial(0, 0, 1), "YaImage"
End Sub

**paulselvan** · 09/08/2008, 10h41

bonjour en effet c'est sur feuille d'excel...
non ,à la ligne <<sh.rotation=sh.rotation+10">> j'ai un "accès refusé"!
aussi que faut-il substituer à la place "Image 1" dans << Set sh = ThisWorkbook.Sheets("Feuil1").Shapes("Image 1")>>...

je n'ai que qq notions en vba excel mais je n'ai vu que 2 moyens pour manipuler une image :
1> la "méthode image" de la boîte à outils Contrôles
avec l'inconvénient de l'afficher seulement avec les pptés "Left" et "Top" donc impossible de la faire pivoter.
2>l'autre, utiliser "Dessin>Insérer une image depuis un fichier" .l'inconvénient est que je ne sais comment effacer le pivot précédent .ce que je veux donc : le même avec une seule image visible et commandé par scrollbar

**JackOuYA** · 09/08/2008, 10h52

Bonjour,

Lorsque tu insére une image par le menu excel : insertion, image, a partir du fichier.
si tu sélectionne l'image son nom apparait en haut à gauche dans la case où tu as habituellement le nom de la cellule ou selection en cours, tu remplace Image 1 par ce nom, veille aussi au bon nom de feuille : feuil1 puis tu relance le code.

**paulselvan** · 09/08/2008, 18h40

bonjour oui j'ai vu défiler "Image 1" en haut à gauche...mais je ne saisis pas bien votre idée;
pouvez vous écrire un pg qui incruste l'image "c:\img.jpg" dans une feuille de calcul , puis lui associer un scrollbar de façon à ce qu'à chaque clic sur celui-ci l'image pivote de n° autour d'un point A ,tout en effaçant l'image de la position précédente

**JackOuYA** · 09/08/2008, 19h01

Envoyé par paulselvan

bonjour oui j'ai vu défiler "Image 1" en haut à gauche...mais je ne saisis pas bien votre idée;
pouvez vous écrire un pg qui incruste l'image "c:\img.jpg" dans une feuille de calcul , puis lui associer un scrollbar de façon à ce qu'à chaque clic sur celui-ci l'image pivote de n° autour d'un point A ,tout en effaçant l'image de la position précédente

bonsoir vous avez essayé le code posté plus haut ?

**paulselvan** · 09/08/2008, 19h49

oui j'ai essayé :ce qui se passe est qu'à chaque clic sur le scrollbar le nom de l'image change :"Image 1",apres une rotation :"Image 2"..ainsi de sute à chaque clic ce nom change automatiquement en haut à gauche...
or dans vos codes vous fixer

Code :

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

Set sh = ThisWorkbook.Sheets("Feuil1").Shapes("Image 1")

...et les images pivotées se superposent !

**JackOuYA** · 09/08/2008, 20h02

Envoyé par paulselvan

oui j'ai essayé :ce qui se passe est qu'à chaque clic sur le scrollbar le nom de l'image change :"Image 1",apres une rotation :"Image 2"..ainsi de sute à chaque clic ce nom change automatiquement en haut à gauche...
or dans vos codes vous fixer << Set sh = ThisWorkbook.Sheets("Feuil1").Shapes("Image 1")>>...et les images pivotées se superposent !

dans mon code il n'y as pas de scroll bar, commencez par le comprendre...

l'insertion de l'image ne doit être effectué qu'une seule fois !

**paulselvan** · 09/08/2008, 20h38

j'ai remarqué que vous n'utilisez pas de scrollbar d'ailleurs c'est pour ça que je voulez un exemple avec...
avez vous lu les pb que j'expose : les images se superposent ,le pont de départ à fixer..et de ça vous n'en dites rien
je n'ai pas à ma disposition la liste & leur signification de tous les méthodes,proprietes du vba ...sinon comme vous sousentendez j'aurai pigé au quart de tour...

**JackOuYA** · 09/08/2008, 20h52

Envoyé par paulselvan

j...
je n'ai pas à ma disposition la liste & leur signification de tous les méthodes,proprietes du vba ..

je n'ai pas utilisé d'autre méthodes que celles que vous utilisez, mais avez vous réussi à faire tourner le code que je vous propose et qui vous montre comment résoudre votre probléme de duplication ! du comme je vous l'ai écrit au moins 2 fois à votre obstination à multiplier les insert !

**paulselvan** · 09/08/2008, 21h49

voila à quoi ressemble mon pg qui se declenche lors d'un appui sur le scrollbar

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ScrollBar1_Change()
YaImage
End Sub
Sub YaImage()
 Dim sh As Shape
 Set sh = ThisWorkbook.Sheets("Feuil2").Shapes("Image 508")
 sh.Rotation = sh.Rotation + 10
 Application.OnTime Now + TimeSerial(0, 0, 1), "YaImage"
End Sub

devinez ce qui tombe...erreur "l'élément portant ce nom est introuvable" il s'agit de l'"image 508" qui ne s'appelle plus ainsi tellement ça défile
... vous avez peur que le forum coule de vos explications...

**JackOuYA** · 09/08/2008, 22h14

Envoyé par paulselvan

.....erreur "l'élément portant ce nom est introuvable" il s'agit de l'"image 508" qui ne s'appelle plus ainsi tellement ça défile
......

si vous n'utilisez que ce code il n'y as aucune raison que l'image change de nom ..! veuillez controlez celui-ci ainsi que le nom de la feuille, de plus pour le moment oubliez votre scrolbar qui ne sert à rien la ou vous l'utilisez.

**paulselvan** · 09/08/2008, 23h21

d'ac YaImage permet de manipuler l'"Image 1"

**JackOuYA** · 09/08/2008, 23h27

donc cela tourne ?

maintenant que dois faire ton script, l'image et déjà présente au moment du lancement où il doit l'insérer ? et s'il l'insére doit'on l'effacer par exemple à la fin du script?

**paulselvan** · 10/08/2008, 11h52

elle doit être une fois pour toute être insérer dans la feuille...
YaImage est une procédure qui fait tourner l'"Image 1" de 10° toutes les 1s
..le 1èr mvt ok
puis message err :Impossible de trouver la macro dans Classeur1.xls'!YaImage'

**JackOuYA** · 10/08/2008, 12h03

Envoyé par paulselvan

elle doit être une fois pour toute être insérer dans la feuille...

insérer comment , par le code ...

la macro YAImage doit être placée dans un module (pas dans le code Thisworkbook ou d'une feuille)

**paulselvan** · 10/08/2008, 16h09

Envoyé par jffaber

Bonjour,

Voici une méthode pour faire tourner l'image

Code :

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

1
2
3
4
5
Sub ScrollBar1_Change()
 
    ActiveSheet.Shapes("Picture 1").Rotation = ScrollBar1.Value
 
End Sub

super efficace !

faire tourner une image

Macros et VBA Excel

Discussions similaires

Partager

Partager