Microsoft 365 Récupérer image d'une note (Shape)

torple · 25 Novembre 2020

Bonjour àtous,

J'ai un fichier (tarif) avec dans des cellules des images qui s'affichent quand on la survole

j'ajoute une image à la note de ma cellule
.Comment.Shape
.Fill.UserPicture FichierImage

Dans un autre fichier je viens lire les cellules et je récupère les infos, mais j'aimerai récupérer l'image pour l'afficher dans un Userform.

Je sèche.

Si qq à une idée ?

Merci d'avance

Eric

patricktoulon · 26 Novembre 2020

Bonjour
un exemple

torple · 26 Novembre 2020

C'est top, SUPER MERCI

Eric

torple · 1 Décembre 2020

Salut à tous
voici le résultat
j'ai modifié un peu ta proposition Patrick (sans copier l'image)

Function ImageShapeEnWMF(rng As Range) As String
'Convertir une image shape en image

Dim ImgTemp$, HandleClipImage&, retour&, shap As Shape

Application.CutCopyMode = False
With rng
.Comment.Visible = True
.Comment.Shape.CopyPicture
.Comment.Visible = False
End With
ImgTemp = VBA.Environ("userprofile") & "\DeskTop\a.wmf"
ExecuteExcel4Macro ("CALL(""user32"",""OpenClipboard"",""JJ""," & 0& & ")")
HandleClipImage = ExecuteExcel4Macro("CALL(""user32"",""GetClipboardData"",""JJ""," & 14 & ")") '2 pour bitmap,14 pour wmf
retour = ExecuteExcel4Macro("CALL(""gdi32"",""CopyEnhMetaFileA"",""JJC""," & HandleClipImage & ",""" & ImgTemp & """)")
ExecuteExcel4Macro ("CALL(""gdi32"",""DeleteEnhMetaFile"",""JJ""," & retour & ")")
ExecuteExcel4Macro ("CALL(""user32"",""CloseClipboard"",""J"")")
ImageShapeEnWMF = ImgTemp
End Function

Microsoft 365 Récupérer image d'une note (Shape)

torple

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Pièces jointes

torple

XLDnaute Nouveau

torple

XLDnaute Nouveau

Discussions similaires