export range en image

export range en image - VB/VBA/VBS - Programmation

Marsh Posté le 03-06-2015 à 14:04:24    

Bonjour,
 
Je souhaiterais un peu d'aide sur le code suivant.
 
J'essaye d'exporter le range du code en image pour par la suite le copié coller ds un e-mail.
 
La pharse en gras me pose probléme
 
Merci d'avvance
 

Code :
  1. Sub Image()
  3. Dim Plage As Range
  4. Set Plage = ActiveSheet.Range("C3:G37" )
  5. Application.ScreenUpdating = False
  6. Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
  7. With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
  8. .Paste
  9. .Export "F:\blablabla\Macro.gif", "GIF"
  10. End With
  11. ActiveWorkbook.Close False
  12. End Sub

Reply

Marsh Posté le 03-06-2015 à 14:04:24   

Reply

Marsh Posté le 08-06-2015 à 12:12:08    

 
           Bonjour,
 
           le premier  Paste  est inutile !
           La ligne n°9 ne pose pas de problème si le dossier de destination existe …
 
           Et au lieu de définir les dimensions sur la sélection (non effectuée qui plus est !), mieux vaut utiliser celle de la plage !
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed