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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 14 août 2014 à 11:41
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 14 août 2014 à 11:41
A voir également:
- Vba excel :faire tourner une imzage
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - 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
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
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
