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.
Code:
Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Shapes("Image1").Visible = True
Else
Shapes("Image1").Visible = False
End If
End Sub
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.
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.
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 .