export range en image

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : export range en image

izekiel06

XVA what else?

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 :

Sub Image()
Dim Plage As Range
Set Plage = ActiveSheet.Range("C3:G37" )
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export "F:\blablabla\Macro.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub

Publicité

Marc L

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 !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

export range en image

Sujets relatifs
Construire une image en .bmp à partir d'une matrice RGB	Ada Calendar.Formatting.Image : problème : solvé.
Cacher un texte dans une image	Représentation sous forme d'une image une matrice sur R
Calculer taille image et afficher [RESOLU]	Error Time 424 - VBA - Export vers word
Contraste des régions d'une image Matlab	Excel : passer un range "complexe" à une fonction
Aligner verticalement 2 images	syntaxe error avec range
Plus de sujets relatifs à : export range en image

Page générée en 0.035 secondes