Vba excel :faire tourner une imzage
Fermé
paulselvan
Messages postés
173
Date d'inscription
vendredi 20 juillet 2007
Statut
Membre
Dernière intervention
16 février 2019
-
7 août 2008 à 17:57
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 14 août 2014 à 11:41
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 14 août 2014 à 11:41
Bonjour,
pur moi il est question sous vba excel d'incruster une image et de le faire tourner au moyen par exemple d'un scrollbox
faire incruster une image par la methode "image" c'est bien sûr possible ;mais elle ne dispose pas de propriétés pouvant parametrer la rotation de l'image tout juste comme propriete on trouve "top" et "left"
voyez vos un moyen
pur moi il est question sous vba excel d'incruster une image et de le faire tourner au moyen par exemple d'un scrollbox
faire incruster une image par la methode "image" c'est bien sûr possible ;mais elle ne dispose pas de propriétés pouvant parametrer la rotation de l'image tout juste comme propriete on trouve "top" et "left"
voyez vos un moyen
A voir également:
- Vba excel :faire tourner une imzage
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si et excel - Guide
- Excel compter cellule couleur sans vba - Guide
7 réponses
' le principe c'est une shape que l'on peut orienter
' sinon, sur le travail sur l'image necessite une formule de calcul mathematique
'
' autour d'un axe est plus complexe
'
' dans mon exemple n peut être remplacé par (scroll / scroll.max) * 360
' bon courage
Sub RotationImage
Set aa = ActiveSheet.Pictures.Insert("D:\image.bmp")
aa.Select
n = 1
While True
Selection.ShapeRange.Rotation = n
Pause 10
n = n + 1
Wend
End Sub
Private Sub Pause(PauseTime)
Start = Timer
Do While Timer < Start + PauseTime / 1000
DoEvents
Loop
End Sub
' sinon, sur le travail sur l'image necessite une formule de calcul mathematique
'
' autour d'un axe est plus complexe
'
' dans mon exemple n peut être remplacé par (scroll / scroll.max) * 360
' bon courage
Sub RotationImage
Set aa = ActiveSheet.Pictures.Insert("D:\image.bmp")
aa.Select
n = 1
While True
Selection.ShapeRange.Rotation = n
Pause 10
n = n + 1
Wend
End Sub
Private Sub Pause(PauseTime)
Start = Timer
Do While Timer < Start + PauseTime / 1000
DoEvents
Loop
End Sub
rotation dans quel sens
--> autour d'un point ; comme les aiguilles d'une montre
--> autour d'un axe; comme une image 3d ?
--> autour d'un point ; comme les aiguilles d'une montre
--> autour d'un axe; comme une image 3d ?
paulselvan
Messages postés
173
Date d'inscription
vendredi 20 juillet 2007
Statut
Membre
Dernière intervention
16 février 2019
17
7 août 2008 à 18:08
7 août 2008 à 18:08
autour d'un point pour mon exo
autour de l'axe ça m'interesse aussi
autour de l'axe ça m'interesse aussi
paulselvan
Messages postés
173
Date d'inscription
vendredi 20 juillet 2007
Statut
Membre
Dernière intervention
16 février 2019
17
7 août 2008 à 19:24
7 août 2008 à 19:24
superbe !
mais pour finaliser
l'effet actuel est que chaque image superpose au-dessus de la précédente apres rotation
comment effacer cette précédente image?
par ailleurs le point ,autour duquel l'image commence à bouger, est lié à la position de la souris
comment lui fixer un point bien précis?
mais pour finaliser
l'effet actuel est que chaque image superpose au-dessus de la précédente apres rotation
comment effacer cette précédente image?
par ailleurs le point ,autour duquel l'image commence à bouger, est lié à la position de la souris
comment lui fixer un point bien précis?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
j'ai pas le probleme; essaye en rajoutant
if n=360 then n=0 en dessous de n=n+1
sinon pour deplacer l'image
Selection.ShapeRange.IncrementLeft 200
Selection.ShapeRange.IncrementTop 50
if n=360 then n=0 en dessous de n=n+1
sinon pour deplacer l'image
Selection.ShapeRange.IncrementLeft 200
Selection.ShapeRange.IncrementTop 50
paulselvan
Messages postés
173
Date d'inscription
vendredi 20 juillet 2007
Statut
Membre
Dernière intervention
16 février 2019
17
7 août 2008 à 20:20
7 août 2008 à 20:20
non ça ne repond pas
à savoir donner un point de départ
et à effacer une image qu'o manipule
à savoir donner un point de départ
et à effacer une image qu'o manipule
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
14 août 2014 à 11:41
14 août 2014 à 11:41
Bonjour,
Voir ceci, c'est bluffant:
https://codes-sources.commentcamarche.net/source/47595-un-graphique-3d-tout-en-mouvement
Voir ceci, c'est bluffant:
https://codes-sources.commentcamarche.net/source/47595-un-graphique-3d-tout-en-mouvement