Microsoft 365 Exporter le visuel d'une cellule vers un fichier PNG

[zedude]

Bonjour à tous,

J'ai une cellule (par exemple aux coordonnées I2) qui contient un code barre. La police de cette cellule me permet d'afficher visuellement un vrai code barre et non pas une série de chiffres.

Je souhaiterais pouvoir exporter ce que je vois visuellement dans la cellule (et non pas le chiffre tout seul) vers un fichier PNG via un code VBA approprié

Bien que j'utilise O365, si le code n'est pas spécifique à cette version mais fonctionne avec les autres versions de Office, je vous en serais reconnaissant

Par avance, merci.

 

[Dudu2]

Bonjour,
Via un Chart.
Je suppose que @patricktoulon va nous le faire en WMF.

 

[sylvanu]

Bonjour Zedule, Dudu,
Un essai en PJ avec :

Sub Export_Codebarre()
' Inspiré de https://excel-downloads.com/threads/exporter-une-plage-en-une-image-nommee.20040347/
Chemin = Environ("userprofile") & "\DeskTop\"
Dim gr1 As Object, Source1 As Range, nom As Date, fichier$
   Application.ScreenUpdating = False
   fichier = Chemin & IIf(Right(Chemin, 1) = "\", "", "\")
   fichier = fichier & "CodeBarre" & Format(Now(), "ddmmyy_hhmm") & ".png"
   Set Source1 = ActiveCell
   Source1.CopyPicture xlScreen, xlPicture
   With Sheets(1).ChartObjects.Add(0, 0, Source1.Width, Source1.Height)
      .Activate:: .Chart.Paste: .Chart.Export fichier: .Delete
   End With
End Sub

 

[jurassic pork]

Hello,
si mon complément Excel xlDnaLibJP est installé :

Sub EnregistreCell()
Dim pp As Object
Set pp = CreateObject("XlDnaLibJP.PressePapier")
Sheets("Feuil2").Range("I2").Copy
Debug.Print pp.ContainsImage
pp.SaveImage "d:\temp\range.png", 0
End Sub

et pour dudu2, je pense qu'il n'y a aucun intérêt à l'enregistrer en wmf car ce sera un wmf raster pas vectoriel et il est préférable d'utiliser le format emf.

Ami calmant, J.P

 

[patricktoulon]

Bonsoir
ce que propose @sylvanu correspond au besoin selon moi pas la peine de surenchérir avec des format ou autres
et pour @jurassic pork testé encore ce soir l'export(api) wmf est de meilleure qualité de le emf
mais je m'égare notre ami @zedude a ce qu'il lui faut