Export image depuis Excel
P
Bonjour à tous,
J'expose mon blocage.
j'ai crée un générateur qui permet de générer automatiquement des QR code sur toutes les lignes sélectionnées.
Une fois cela fait, j'aimerais que ces QR codes soient exportés dans un fichier nommé "QR Code Rack" sous format PNG. Cependant, impossible de trouver la solution.
Je vous remercie par avance pour votre aide précieuse !
PS : ci joint le fichier.
Cordialement,
J'expose mon blocage.
j'ai crée un générateur qui permet de générer automatiquement des QR code sur toutes les lignes sélectionnées.
Une fois cela fait, j'aimerais que ces QR codes soient exportés dans un fichier nommé "QR Code Rack" sous format PNG. Cependant, impossible de trouver la solution.
Je vous remercie par avance pour votre aide précieuse !
PS : ci joint le fichier.
Cordialement,
D
Bonjour,
J'ai trouvé ce code sur Stackoverflow. Ici, export de la plage B22:H11 en passant par un graphique :
Sub Export()
Dim oWs As Worksheet
Dim oRng As Range
Dim oChrtO As ChartObject
Dim lWidth As Long, lHeight As Long
Set oWs = ActiveSheet
Set oRng = oWs.Range("B2:H11")
oRng.CopyPicture xlScreen, xlPicture
lWidth = oRng.Width
lHeight = oRng.Height
Set oChrtO = oWs.ChartObjects.Add(Left:=0, Top:=0, Width:=lWidth, Height:=lHeight)
oChrtO.Activate
With oChrtO.Chart
.Paste
.Export Filename:="Case.jpg", Filtername:="JPG"
End With
oChrtO.Delete
End SubDaniel