Shapes images

[dumax]

Bonjour,
J'utilise des shapes pour afficher des images, ce qui me permet de transporter le fichier d'un pc à l'autre sans les perdre.
Voila le programme basic :

Private Sub ToggleButton3_Click()
If ToggleButton3 = True Then
Shapes("Image2").Visible = True
End If
If ToggleButton3 = False Then
Shapes("Image2").Visible = False
End If
End Sub

Comme je compte faire ça pour toutes mes colonnes, je voudrais inserer une variable de manière à ne pas être embetter à taper le code pour chaques ToggleButton.
Et je voudrais savoir si il est possible, comme l'explorateur image windows, de zoomer et se déplacer dans une shape ?

Apperement je dois pas être très clair ...
enfête je voudrais associer des toggleButton à des shapes par une boucle

Par exemple :
For i = 3 To 42
Private Sub ToggleButtoni_Click()
If ToggleButtoni = True Then
Shapes("Image(i-1)").Visible = True
End If
If ToggleButtoni = False Then
Shapes("Image(i-1)").Visible = False
End If
Next i
End Sub

Il faudrais commencer la boucle avant de déclarer la fonction pour modifier le nom de la fonction à chaque boucle le problème c'est qu'il identifie la première ligne comme unique fonction ce qui est logique et puis je ne pense pas quand vba ce style d'écriture existe (Image(i-1)) mais c'était pour donner un exemple.