export cellule vers image

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2015

• #2

Re : export cellule vers image

Bonjour,

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 11 Juin 2015

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2015

• #4

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/

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2015

• #5

Re : export cellule vers image

Re,

essaye ceci, fonctionne chez moi sous 2010 :

Code:

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 11 Juin 2015

• #6

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

 

Pièces jointes

• Image01.png

  8.4 KB · Affichages: 24

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2015

• #7

Re : export cellule vers image

Re,

as tu vu le post #5

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 11 Juin 2015

• #8

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juin 2015

• #9

Re : export cellule vers image

Re,

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 12 Juin 2015

• #10

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 12 Juin 2015

• #11

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

 

Vote positif 0 Vote négatif