graphique

[jacques]

question de debutant
apres avoir integré plusieurs graph (avec texte, titre...) dans une feuille, comment les copier en une seule fois et completement en 1 image JPG; ça marche pour1 mais pas pour 4. Merci d'avance

 

[Gérard Dezamis]

Bonsoir Jacques

En selectionnant les graphs successivement en maintenant la touche majuscule enfoncée (shift) les graphs sont tous sélectionnés.
Ensuite faire clic droit groupe => regrouper et ensuite copier et collage spécial en Image cela devrait te tirer d'affaires

@+
GD

 

[albert]

bonjour jacques , Gérard Dezamis

il faut faire très attention lors de l'opération pour ne pas saturer le disque dur (ça m'est déjà arrivé).
En effet, à chaque copie se crée un fichier temporaire .tmp dans
C:\Documents and Settings\Local Settings\Temp

Local Settings est un fichier caché qu'il faut faire apparaître

en cochant
dans Panneau de configuration / option des dossiers / cocher : afficher les fichiers et dossiers cachés

albert

 

[Gérard Dezamis]

Bonjour Albert

Merci du conseil

La surcharge pondérale est le fléau de notre époque !

Même pour nos "pôvres disques durs"

@+ Bon W-E

GD

 

[jacques]

c'est ok pour ta methode (je t'en remercie) mais elle ne marche qu'en manuel.Incorporée dans une sub_ vba_ xls elle se plante, c'est ça mon probléme!Je soupçonne une utilisation du vb 6, qu'en pense tu (en dehors de ma portée pour l'instant)?
a te lire

 

[Gérard DEZAMIS]

Bonsoir Jacques

Un essai avec deux "Chart"

En retirant :

Selection.ShapeRange.Group.Select

la macro :

Sub GrouperImage()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("Classeur1").Activate
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 2")).Select
Selection.Copy
Range("I12").Select
ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)", Link:=
_False, DisplayAsIcon:=False
Range("A1").Select
End Sub

fonctionne....

Affaire à suivre

@+
GD