Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Enregistrer en tant qu'image

Enregistrer en tant qu'image

6 réponses
Avatar
garnote
Bonjour à tous,

J'ai groupé une zone de texte et une photo.
J'aimerais enregistrer ce groupe en tant qu'image.
Je sais qu'une macro fait ça (Modeste, peut-être)
mais je n'arrive à la retrouver.
Où est-elle donc cette sacrée macro ?

Merci

Serge
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour garnote,



Pour exporter une plage (A1:B10 par ex) directement en fichier image:

Sub exportgif() 'Daniel Joss
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub


Salutations!



"garnote" a écrit dans le message de news:
Bonjour à tous,

J'ai groupé une zone de texte et une photo.
J'aimerais enregistrer ce groupe en tant qu'image.
Je sais qu'une macro fait ça (Modeste, peut-être)
mais je n'arrive à la retrouver.
Où est-elle donc cette sacrée macro ?

Merci

Serge
Avatar
garnote
Bonjour à toi,

Je veux sélectionner mon groupe
et l'enregistrer en tant qu'image.
J'ai modifié la macro mais elle bloque sur
.Export "C:Mes documentsTest.gif", "GIF"

Au secours ;-)

Serge


Sub exportgif() 'Daniel Joss
Dim Plage
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Mes documentsTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub





"michdenis" a écrit dans le message de news:

Bonjour garnote,



Pour exporter une plage (A1:B10 par ex) directement en fichier image:

Sub exportgif() 'Daniel Joss
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub


Salutations!



"garnote" a écrit dans le message de news:

Bonjour à tous,

J'ai groupé une zone de texte et une photo.
J'aimerais enregistrer ce groupe en tant qu'image.
Je sais qu'une macro fait ça (Modeste, peut-être)
mais je n'arrive à la retrouver.
Où est-elle donc cette sacrée macro ?

Merci

Serge





Avatar
michdenis
.Export "C:Mes documentsTest.gif", "GIF"

Est-ce que ce chemin "c:Mes documents" est un chemin valide sur ton ordi ?


Salutations!


"garnote" a écrit dans le message de news: %
Bonjour à toi,

Je veux sélectionner mon groupe
et l'enregistrer en tant qu'image.
J'ai modifié la macro mais elle bloque sur
.Export "C:Mes documentsTest.gif", "GIF"

Au secours ;-)

Serge


Sub exportgif() 'Daniel Joss
Dim Plage
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Mes documentsTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub





"michdenis" a écrit dans le message de news:

Bonjour garnote,



Pour exporter une plage (A1:B10 par ex) directement en fichier image:

Sub exportgif() 'Daniel Joss
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub


Salutations!



"garnote" a écrit dans le message de news:

Bonjour à tous,

J'ai groupé une zone de texte et une photo.
J'aimerais enregistrer ce groupe en tant qu'image.
Je sais qu'une macro fait ça (Modeste, peut-être)
mais je n'arrive à la retrouver.
Où est-elle donc cette sacrée macro ?

Merci

Serge





Avatar
garnote
Il n'était pas valide. Voici le bon chemin :
.Export "C:Documents and SettingsuserMes documentsMes imagesTest.gif",
"GIF"
mais ça bloque quand même ;-(

Serge


"michdenis" a écrit dans le message de news:

.Export "C:Mes documentsTest.gif", "GIF"

Est-ce que ce chemin "c:Mes documents" est un chemin valide sur ton
ordi ?


Salutations!


"garnote" a écrit dans le message de news:
%
Bonjour à toi,

Je veux sélectionner mon groupe
et l'enregistrer en tant qu'image.
J'ai modifié la macro mais elle bloque sur
.Export "C:Mes documentsTest.gif", "GIF"

Au secours ;-)

Serge


Sub exportgif() 'Daniel Joss
Dim Plage
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Mes documentsTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub





"michdenis" a écrit dans le message de news:

Bonjour garnote,



Pour exporter une plage (A1:B10 par ex) directement en fichier image:

Sub exportgif() 'Daniel Joss
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub


Salutations!



"garnote" a écrit dans le message de news:

Bonjour à tous,

J'ai groupé une zone de texte et une photo.
J'aimerais enregistrer ce groupe en tant qu'image.
Je sais qu'une macro fait ça (Modeste, peut-être)
mais je n'arrive à la retrouver.
Où est-elle donc cette sacrée macro ?

Merci

Serge










Avatar
michdenis
En supposant que ton groupe ait comme nom "Groupe 3"

ceci est suffisant :

'--------------------------
Sub exportgif()

With ActiveSheet
With .Shapes("Groupe 3")
.Select
.CopyPicture
End With
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Test.gif", "GIF"
End With
End With
End Sub
'--------------------------


Salutations!



"garnote" a écrit dans le message de news:
Il n'était pas valide. Voici le bon chemin :
.Export "C:Documents and SettingsuserMes documentsMes imagesTest.gif",
"GIF"
mais ça bloque quand même ;-(

Serge


"michdenis" a écrit dans le message de news:

.Export "C:Mes documentsTest.gif", "GIF"

Est-ce que ce chemin "c:Mes documents" est un chemin valide sur ton
ordi ?


Salutations!


"garnote" a écrit dans le message de news:
%
Bonjour à toi,

Je veux sélectionner mon groupe
et l'enregistrer en tant qu'image.
J'ai modifié la macro mais elle bloque sur
.Export "C:Mes documentsTest.gif", "GIF"

Au secours ;-)

Serge


Sub exportgif() 'Daniel Joss
Dim Plage
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Mes documentsTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub





"michdenis" a écrit dans le message de news:

Bonjour garnote,



Pour exporter une plage (A1:B10 par ex) directement en fichier image:

Sub exportgif() 'Daniel Joss
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub


Salutations!



"garnote" a écrit dans le message de news:

Bonjour à tous,

J'ai groupé une zone de texte et une photo.
J'aimerais enregistrer ce groupe en tant qu'image.
Je sais qu'une macro fait ça (Modeste, peut-être)
mais je n'arrive à la retrouver.
Où est-elle donc cette sacrée macro ?

Merci

Serge










Avatar
garnote
Rien à comprendre là-dedans !
Ça bloque encore ici :
.Export "C:Test.gif", "GIF"

Merci

Serge

"michdenis" a écrit dans le message de news:
%
En supposant que ton groupe ait comme nom "Groupe 3"

ceci est suffisant :

'--------------------------
Sub exportgif()

With ActiveSheet
With .Shapes("Groupe 3")
.Select
.CopyPicture
End With
.Paste
With .ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Test.gif", "GIF"
End With
End With
End Sub
'--------------------------


Salutations!



"garnote" a écrit dans le message de news:

Il n'était pas valide. Voici le bon chemin :
.Export "C:Documents and SettingsuserMes documentsMes
imagesTest.gif",
"GIF"
mais ça bloque quand même ;-(

Serge


"michdenis" a écrit dans le message de news:

.Export "C:Mes documentsTest.gif", "GIF"

Est-ce que ce chemin "c:Mes documents" est un chemin valide sur ton
ordi ?


Salutations!


"garnote" a écrit dans le message de news:
%
Bonjour à toi,

Je veux sélectionner mon groupe
et l'enregistrer en tant qu'image.
J'ai modifié la macro mais elle bloque sur
.Export "C:Mes documentsTest.gif", "GIF"

Au secours ;-)

Serge


Sub exportgif() 'Daniel Joss
Dim Plage
Set Plage = Selection
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:Mes documentsTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub





"michdenis" a écrit dans le message de news:

Bonjour garnote,



Pour exporter une plage (A1:B10 par ex) directement en fichier image:

Sub exportgif() 'Daniel Joss
Dim Plage As Range
Set Plage = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex.
A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)
Application.ScreenUpdating = False
Workbooks.Add
Plage.CopyPicture
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, _
Selection.Width, Selection.Height).Chart
.Paste
.Export "C:ajeterTest.gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub


Salutations!



"garnote" a écrit dans le message de news:

Bonjour à tous,

J'ai groupé une zone de texte et une photo.
J'aimerais enregistrer ce groupe en tant qu'image.
Je sais qu'une macro fait ça (Modeste, peut-être)
mais je n'arrive à la retrouver.
Où est-elle donc cette sacrée macro ?

Merci

Serge