Discussion :

[JDuprat]

Bonjour, je me présente, Jean Duprat; je suis un "vieux de la vieille" en informatique, et certaines fonctions Excel se sont modernisées sans moi.

Par exemple, pour transformer une zone en une image, il faut utiliser « Copier comme une image »

Ce qui se traduit en Visual Basic par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
   Range("I4:J10").Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Range("L19").Select
    ActiveSheet.Paste

Comment donner un nom à la nouvelle image ? (par exemple « MaBelleImage »)



Ensuite, comment faire pour enregistrer cette image dans un fichier *.jpg?

Voici ce que je fais, mais depuis 2016 <ça> ne marche plus. Entendez par là que si le fichier *.jpg est bien créé dans le dossier, le contenu de la partie image est vide.
J’en déduis que je n’ai pas dû donner tous les paramètres

Après avoir positionné sur le bon dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
  ChDir (DossierChoisi)
 
  HNom = "MabelleImage.JPG"
        Selection.Copy      ' donc sélection de l'image composée dans une feuille source 
        ActiveSheet.Paste
        With ActiveSheet.ChartObjects.Add(0, 0, Largeur, Hauteur).Chart
            .ChartArea.Border.LineStyle = 0
            .Paste
            .Export HNom, "JPG"
            End With

En particulier que contiennent les 2 paramètres 0 dans la ligne With ?

Merci d'avance.

Cordialement,

J. Duprat.

[ARTURO83]

Bonjour,

En particulier que contiennent les 2 paramètres 0 dans la ligne With ?
With ActiveSheet.ChartObjects.Add(0, 0, Largeur, Hauteur).Chart

C'est l'emplacement en haut et à gauche de la feuille excel donc c'est dans l'angle supérieur gauche que sera mis le graphique

Cdlt