Rotation d'un graphique pour une animation

Bonjour à tous,
Je vous explique :

J'ai une fonction mathématique qui en fonction de paramètre, calcule des points à partir duquel je peux visualiser la coque d'un bateau sur un graph. J'ai donc sur mon graph une belle coque en vue de profil.

Mon problème est maintenant de faire bouger cette coque. En effet, je voudrais créer une animation dans lequel on visualise l'inclinaison de la coque selon la résistance/vitesse. J'ai très bien réussi cela avec une simple image de bateau (Image PNG).

Mon idée était donc de transformer mon graph (démunie d'axe, etc = sur un fond blanc) en image pour après le traiter comme je le veux grâce à mon programme d'animation. Pour cela, j'ai trouvé ces lignes de code :

Sub SauveGIF()

Dim chaine As String

Graph = ThisWorkbook.Path & "\" & ActiveChart.Name & ".JPG"
ActiveChart.CopyPicture( Filename:=Graph, FilterName:="JPG"



End Sub

Mais il présente plusieurs inconvénients :
Il se met dans le fichier où le classeur est enregistré du coup, il est difficile de le récupérer sachant que je voudrais que mon utilisateur n'est rien à faire.
Et après, je voudrais que mon image apparaisse toujours au même endroit !

Voici mon programme d'annimation au cas où :

<gras>Sub Animation()

Dim rep_count As Integer
rep_count = 1

Sheets("planante").Shapes("Graphique 28").Rotation = 0


Do
DoEvents

rep_count = rep_count + 1

Sheets("planante").Shapes("Graphique 28").Rotation = -Sheets("KREN").Cells(32, rep_count)

Timeout (0.3)


Loop Until rep_count = 12


End Sub

Sub Timeout(duration_ms As Double)
Dim Start_Timer As Double

Start_Timer = Timer

Do
DoEvents
Loop Until (Timer - Start_Timer) >= duration_ms

End Sub

</gras>

Merci d'avance pour votre aide !
A bientôt