Zoom shape

[dumax]

Bonjour,
J'ai creer un shape auquel j'ai affecté une image.
Je voudrais savoir si c'est possible de zoomer/dézoomer à volonter l'image tout en restant dans le cadre du shape et une foi que je cache le shape retourner à la taille d'origine.
Je vous en remercie d'avance.

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Shapes("Image1").Visible = True
Else
Shapes("Image1").Visible = False
End If
End Sub

 

[job75]

Re : Zoom shape

Bonjour dumax, le forum,

Pas bien difficile :

Private Sub ToggleButton1_Click()
ActiveSheet.Shapes("Image 1").Visible = ToggleButton1
End Sub

Edit : ça ne doit pas répondre à la question

A+

 

[Hulk]

Re : Zoom shape

Hello Forum, Dumax, ami Job,

Je ne pense pas que ça soit exactement ce que tu veux Dumax, mais pour un effet loupe, vise ce fichier joint carrément ahurissant !

Chapeau à Ti !

Cdt, Hulk.

 

[dumax]

Re : Zoom shape

Merci job75 et hulk
Très beau programme, le seul hic c'est qu'il faut aller chercher une image dans un répertoire puis on le zoom. Il ne détecte pas une image présente sur la feuille.

 

[job75]

Re : Zoom shape

Re, salut Hulk,

Si j'ai bien compris, il faut zoomer l'image (l'agrandir) quand elle est sélectionnée, sinon simplement l'afficher ou la masquer.

Un contrôle ActiveX malheureusement désélectionne l'image quand on l'utilise.

Il faut donc peut-être s'orienter vers un bouton créé avec Formulaires et utiliser une variable Static. Pour l'instant je ne suis pas parvenu au bon résultat.

A+

 

[dumax]

Re : Zoom shape

Enfete quand je choisis dans la combobox un mot, une image apparait et je voudrais naviguer sur cette image un peu comme le principe de l'explorateur windows. Tu ouvre une image et tu zoom avec la roulette et te déplace avec les barres de défilement. J'en demande peut être beaucoup .