Microsoft 365 Zoom sur image

[Electron24]

Bonsoir le forum,

Dans des cellules de la colonne A j'ai insérais des images d'objets que j'ai acheté

En cliquant sur la cellule d'une image, est il possible via une macro d'ouvrir un formulaire avec l'image agrandie.
J'ai testé plusieurs méthodes sans succès

d'avance merci

 

[Mapat]

Bonsoir le forum,

Dans des cellules de la colonne A j'ai insérais des images d'objets que j'ai acheté

En cliquant sur la cellule d'une image, est il possible via une macro d'ouvrir un formulaire avec l'image agrandie.
J'ai testé plusieurs méthodes sans succès

d'avance merci

Bonjour
Il peut y avoir la possibilité d'insérer un commentaire dans la cellule et de remplir celui-ci avec l'image à agrandir.
Il faudra ensuite redimensionner ce commentaire en fonction de la taille désirée.
Un simple survol de la souris de la cellule affichera le commentaire

 

[job75]

Bonjour Electron24, Mapat, le forum,

Pourquoi un formulaire ?

Mettez des images en A3 A4 A5 et affectez leur la macro "Zoom" :

Sub Zoom()
Dim coef
coef = 3 'coefficient de zoom
If IsError(Application.Caller) Then Exit Sub
With ActiveSheet.Shapes(Application.Caller).TopLeftCell
    .CopyPicture
    ActiveSheet.Paste
    Selection.Top = .Top
    Selection.Left = .Left
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.Height = .Height * coef
    Selection.OnAction = "Suppr" 'affectation de la macro
    .Select
End With
End Sub

Sub Suppr()
If Not IsError(Application.Caller) Then ActiveSheet.Shapes(Application.Caller).Delete
End Sub

La Shape créée est supprimée quand on clique dessus.

A+

 

[Electron24]

Bonjour le Forum,
La solution de Mapat est fastidieuse, et pas très fiable, les dimensions des notes pouvant changer et selon la taille des images ne donnent pas un résultat satisfaisant. Mais j'y avais pensé et pour dire vrai avait commencé à le faire sur mon classeur, mais vite abandonné.
Merci tout de même Mapat

Par contre j'opterai pour celle de job75 car un petit code à écrire et un clic sur l'image est c'est Ok
Pour répondre à ta emande sur un formulaire c'était pour pouvoir en même temps dans des textbox inscrire l'achat en question avec son prix .
Le seul souci est que contrairement à toi, mes images sont DANS la cellule et non superposée dessus car cela alourdirait mon classeur