export cellule vers image

[MASSJIPE]

Bonjour
Comment on fait pour exporter une plage de cellule vers une image
Merci

Sub EnvoiPlage()
  
 
    Dim Plage As Range

    On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
    If Err.Number <> 0 Then
        Err.Clear
        MsgBox "Aucune plage sélectionnée"
        Exit Sub
    End If

End Sub

 

[Pierrot93]

Re : export cellule vers image

Bonjour,

regarde peut être ceci, si j'ai bien compris :

    Range("A1:A9").Copy
    ActiveSheet.Pictures.Paste Link:=True

bonne journée
@+

 

[MASSJIPE]

Re : export cellule vers image

Re
pas tout a fait je sélectionne la plage avec le code ci dessus et ensuite je voudrai que la sélection soit enregistré au format JPG png ou autre vers mes images

 

[Pierrot93]

Re : export cellule vers image

Re,

regarde peut être ce lien alors :
https://www.excel-downloads.com/threads/vba-export-excel-vers-image-sous-mspaint.171362/

 

[Pierrot93]

Re : export cellule vers image

Re,

essaye ceci, fonctionne chez moi sous 2010 :

Option Explicit
Sub ExportVersPNG()
Dim p As Range, c As ChartObject
Application.ScreenUpdating = False
Set p = Range("A1:F10")
Set c = Feuil1.ChartObjects.Add(Range("L1").Left, Range("L1").Top, p.Width, p.Height)
p.CopyPicture xlScreen, xlPicture
With c.Chart
    .Paste
    .Export Filename:=ThisWorkbook.Path & "\Image1.png", Filtername:="PNG"
End With
c.Delete
Application.ScreenUpdating = True
End Sub

 

[MASSJIPE]

Re : export cellule vers image

Le problème c'est l'image qui ne reflète pas la sélection et comment associer les deux codes

 

[Pierrot93]

Re : export cellule vers image

Re,

as tu vu le post #5

 

[MASSJIPE]

Re : export cellule vers image

Oui problème sur paste
mais c'est une sélection figé moi je voudrai sur une sélection libre du genre

Sub EnvoiPlage()
   
  
     Dim Plage As Range

     On Error Resume Next
     Set Plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
     If Err.Number <> 0 Then
         Err.Clear
         MsgBox "Aucune plage sélectionnée"
         Exit Sub
     End If

 End Sub

 

[Pierrot93]

Re : export cellule vers image

Re,

bah... remplace le range par la selection.... ou bien par ta variable "plage"....

 

[MASSJIPE]

Re : export cellule vers image

RE
Sub EnvoiPlage()
Dim plage As Range
On Error GoTo noselec
Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
plage.CopyPicture
Application.ScreenUpdating = False
With Worksheets.Add
.Paste
With .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Users\JP_Masson\Pictures\anaq.jpg", "JPG"
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
Exit Sub
noselec:
MsgBox "Aucune plage sélectionnée"
End Sub

 

[MASSJIPE]

Re : export cellule vers image

RE
Sub EnvoiPlage()
Dim plage As Range
On Error GoTo noselec
Set plage = Application.InputBox("Sélectionnez la plage à envoyer", Type:=8)
plage.CopyPicture
Application.ScreenUpdating = False
With Worksheets.Add
.Paste
With .ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "C:\Users\JP_Masson\Pictures\anaq.jpg", "JPG"
End With
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
Exit Sub
noselec:
MsgBox "Aucune plage sélectionnée"
End Sub