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
michdenis
Bonjour Bourby,
Une procédure pour copier une feuille graphique vers une feuille de calcul :
Cette procédure ne crée pas de lien avec les données... tu peux modifier légèrement la macro si le besoin est là .
'---------------------------------- Sub CopierGraphique()
Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With Charts("Graph3") 'Nom de ta feuille graphique .CopyPicture xlScreen, xlBitmap End With Worksheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .PasteSpecial Format:="Bitmap", _ Link:úlse, DisplayAsIcon:úlse .Name = "Graphe_Denis" End With Sheets(Nom).Select
End Sub '----------------------------------
Salutations!
"bourby" a écrit dans le message de news: % bonjour,
j'ai un graphique dans une feuille Chart.
Je voudrais le copier dans une feuille worksheet; complètement chiromachintruc, je ne m'en sors pas.
Merci d'avance pour l'aide.
Bourby
Bonjour Bourby,
Une procédure pour copier une feuille graphique vers une feuille de calcul :
Cette procédure ne crée pas de lien avec les données...
tu peux modifier légèrement la macro si le besoin est là .
'----------------------------------
Sub CopierGraphique()
Dim Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
With Charts("Graph3") 'Nom de ta feuille graphique
.CopyPicture xlScreen, xlBitmap
End With
Worksheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.PasteSpecial Format:="Bitmap", _
Link:úlse, DisplayAsIcon:úlse
.Name = "Graphe_Denis"
End With
Sheets(Nom).Select
End Sub
'----------------------------------
Salutations!
"bourby" <jchfer@wanadoo.fr> a écrit dans le message de news: %231FhQ6wuFHA.3720@TK2MSFTNGP14.phx.gbl...
bonjour,
j'ai un graphique dans une feuille Chart.
Je voudrais le copier dans une feuille worksheet; complètement
chiromachintruc, je ne m'en sors pas.
Une procédure pour copier une feuille graphique vers une feuille de calcul :
Cette procédure ne crée pas de lien avec les données... tu peux modifier légèrement la macro si le besoin est là .
'---------------------------------- Sub CopierGraphique()
Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With Charts("Graph3") 'Nom de ta feuille graphique .CopyPicture xlScreen, xlBitmap End With Worksheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .PasteSpecial Format:="Bitmap", _ Link:úlse, DisplayAsIcon:úlse .Name = "Graphe_Denis" End With Sheets(Nom).Select
End Sub '----------------------------------
Salutations!
"bourby" a écrit dans le message de news: % bonjour,
j'ai un graphique dans une feuille Chart.
Je voudrais le copier dans une feuille worksheet; complètement chiromachintruc, je ne m'en sors pas.
Merci d'avance pour l'aide.
Bourby
Francois
bonjour Michdenis,
merci pour cette solution; ça permet effectivement de récupérer l'image du graphique. Mais j'aimerais avoir le graphique lui-même, pour le réutiliser comme modèle personnalisé. Y-a-t-il un moyen de récupérer ce graphique?
Bonsoir,
Sélectionner le graphique, clic droit, choisir "emplacement" et là choisir la feuille sur laquelle tu veux envoyer ton graphique.
-- François L
bonjour Michdenis,
merci pour cette solution; ça permet effectivement de récupérer l'image
du graphique. Mais j'aimerais avoir le graphique lui-même, pour le
réutiliser comme modèle personnalisé.
Y-a-t-il un moyen de récupérer ce graphique?
Bonsoir,
Sélectionner le graphique, clic droit, choisir "emplacement" et là
choisir la feuille sur laquelle tu veux envoyer ton graphique.
merci pour cette solution; ça permet effectivement de récupérer l'image du graphique. Mais j'aimerais avoir le graphique lui-même, pour le réutiliser comme modèle personnalisé. Y-a-t-il un moyen de récupérer ce graphique?
Bonsoir,
Sélectionner le graphique, clic droit, choisir "emplacement" et là choisir la feuille sur laquelle tu veux envoyer ton graphique.
-- François L
bourby
bonjour Michdenis,
merci pour cette solution; ça permet effectivement de récupérer l'image du graphique. Mais j'aimerais avoir le graphique lui-même, pour le réutiliser comme modèle personnalisé. Y-a-t-il un moyen de récupérer ce graphique?
D'avance merci.
Bourby
michdenis wrote:
Bonjour Bourby,
Une procédure pour copier une feuille graphique vers une feuille de calcul :
Cette procédure ne crée pas de lien avec les données... tu peux modifier légèrement la macro si le besoin est là .
'---------------------------------- Sub CopierGraphique()
Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With Charts("Graph3") 'Nom de ta feuille graphique .CopyPicture xlScreen, xlBitmap End With Worksheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .PasteSpecial Format:="Bitmap", _ Link:úlse, DisplayAsIcon:úlse .Name = "Graphe_Denis" End With Sheets(Nom).Select
End Sub '----------------------------------
Salutations!
"bourby" a écrit dans le message de news: % bonjour,
j'ai un graphique dans une feuille Chart.
Je voudrais le copier dans une feuille worksheet; complètement chiromachintruc, je ne m'en sors pas.
Merci d'avance pour l'aide.
Bourby
bonjour Michdenis,
merci pour cette solution; ça permet effectivement de récupérer l'image
du graphique. Mais j'aimerais avoir le graphique lui-même, pour le
réutiliser comme modèle personnalisé.
Y-a-t-il un moyen de récupérer ce graphique?
D'avance merci.
Bourby
michdenis wrote:
Bonjour Bourby,
Une procédure pour copier une feuille graphique vers une feuille de calcul :
Cette procédure ne crée pas de lien avec les données...
tu peux modifier légèrement la macro si le besoin est là .
'----------------------------------
Sub CopierGraphique()
Dim Nom As String
Nom = ActiveSheet.Name
Application.ScreenUpdating = False
With Charts("Graph3") 'Nom de ta feuille graphique
.CopyPicture xlScreen, xlBitmap
End With
Worksheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.PasteSpecial Format:="Bitmap", _
Link:úlse, DisplayAsIcon:úlse
.Name = "Graphe_Denis"
End With
Sheets(Nom).Select
End Sub
'----------------------------------
Salutations!
"bourby" <jchfer@wanadoo.fr> a écrit dans le message de news: %231FhQ6wuFHA.3720@TK2MSFTNGP14.phx.gbl...
bonjour,
j'ai un graphique dans une feuille Chart.
Je voudrais le copier dans une feuille worksheet; complètement
chiromachintruc, je ne m'en sors pas.
merci pour cette solution; ça permet effectivement de récupérer l'image du graphique. Mais j'aimerais avoir le graphique lui-même, pour le réutiliser comme modèle personnalisé. Y-a-t-il un moyen de récupérer ce graphique?
D'avance merci.
Bourby
michdenis wrote:
Bonjour Bourby,
Une procédure pour copier une feuille graphique vers une feuille de calcul :
Cette procédure ne crée pas de lien avec les données... tu peux modifier légèrement la macro si le besoin est là .
'---------------------------------- Sub CopierGraphique()
Dim Nom As String Nom = ActiveSheet.Name Application.ScreenUpdating = False With Charts("Graph3") 'Nom de ta feuille graphique .CopyPicture xlScreen, xlBitmap End With Worksheets.Add after:=Sheets(Sheets.Count) With ActiveSheet .PasteSpecial Format:="Bitmap", _ Link:úlse, DisplayAsIcon:úlse .Name = "Graphe_Denis" End With Sheets(Nom).Select
End Sub '----------------------------------
Salutations!
"bourby" a écrit dans le message de news: % bonjour,
j'ai un graphique dans une feuille Chart.
Je voudrais le copier dans une feuille worksheet; complètement chiromachintruc, je ne m'en sors pas.
Merci d'avance pour l'aide.
Bourby
bourby
merci François,
j'étais toute la semaine en déplacement, je trouve ta réponse au retour, et ça marche super bien. ça m'a permis de trouver aussi les deux syntaxes VBA: ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" ou ActiveChart.Location Where:=xlLocationAsNewSheet En consultant le modèle objet, j'ai constaté qu'il est différent pour ces deux types de graphiques... pas intuitif! mais ça explique pourquoi on ne peut pas faire de copier-coller comme j'essayais de le faire au départ.
Cordialement
Bourby
Francois wrote:
bonjour Michdenis,
merci pour cette solution; ça permet effectivement de récupérer l'image du graphique. Mais j'aimerais avoir le graphique lui-même, pour le réutiliser comme modèle personnalisé. Y-a-t-il un moyen de récupérer ce graphique?
Bonsoir,
Sélectionner le graphique, clic droit, choisir "emplacement" et là choisir la feuille sur laquelle tu veux envoyer ton graphique.
merci François,
j'étais toute la semaine en déplacement, je trouve ta réponse au retour,
et ça marche super bien.
ça m'a permis de trouver aussi les deux syntaxes VBA:
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ou
ActiveChart.Location Where:=xlLocationAsNewSheet
En consultant le modèle objet, j'ai constaté qu'il est différent pour
ces deux types de graphiques... pas intuitif! mais ça explique pourquoi
on ne peut pas faire de copier-coller comme j'essayais de le faire au
départ.
Cordialement
Bourby
Francois wrote:
bonjour Michdenis,
merci pour cette solution; ça permet effectivement de récupérer
l'image du graphique. Mais j'aimerais avoir le graphique lui-même,
pour le réutiliser comme modèle personnalisé.
Y-a-t-il un moyen de récupérer ce graphique?
Bonsoir,
Sélectionner le graphique, clic droit, choisir "emplacement" et là
choisir la feuille sur laquelle tu veux envoyer ton graphique.
j'étais toute la semaine en déplacement, je trouve ta réponse au retour, et ça marche super bien. ça m'a permis de trouver aussi les deux syntaxes VBA: ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1" ou ActiveChart.Location Where:=xlLocationAsNewSheet En consultant le modèle objet, j'ai constaté qu'il est différent pour ces deux types de graphiques... pas intuitif! mais ça explique pourquoi on ne peut pas faire de copier-coller comme j'essayais de le faire au départ.
Cordialement
Bourby
Francois wrote:
bonjour Michdenis,
merci pour cette solution; ça permet effectivement de récupérer l'image du graphique. Mais j'aimerais avoir le graphique lui-même, pour le réutiliser comme modèle personnalisé. Y-a-t-il un moyen de récupérer ce graphique?
Bonsoir,
Sélectionner le graphique, clic droit, choisir "emplacement" et là choisir la feuille sur laquelle tu veux envoyer ton graphique.
