Vba excel :faire tourner une imzage
paulselvan
Messages postés
198
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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 ou 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 ?
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
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