vba excel :faire tourner une imzage

Question

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

jack · Accepted Answer

' 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

jack · Answer

rotation dans quel sens 
--> autour d'un point ; comme les aiguilles d'une montre
--> autour d'un axe; comme une image 3d ?

paulselvan · Answer

autour d'un point pour mon exo
autour de l'axe ça m'interesse aussi

paulselvan · Answer

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?

jack59263 · Answer

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

paulselvan · Answer

non ça ne repond pas

à savoir donner un point de départ 
et à effacer une image qu'o manipule

cs_Le Pivert · Answer

Bonjour,

Voir ceci, c'est bluffant:

 https://codes-sources.commentcamarche.net/source/47595-un-graphique-3d-tout-en-mouvement

Vba excel :faire tourner une imzage

7 réponses

Newsletters