Bonjour,
Je souhaiterais convertir une sélection contenant plusieurs shapes et cellules (qui se trouve dans la même feuille) en 1 seule image (Jpeg) qui sera un fichier à part.

J'ai commencé une macro avec la fonction copypicture mais cela ne marche pas complétement.
Bizarrement la copie ne s'effectue pas sur la totalité de la sélection demandée

Pour quelles raisons ? avec vous une idée pour m'aider à résoudre se problème.

Merci
Voici le code que j'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'Création de l'image
Dim img1 As Range 'déclare la variable imag (Image)
Dim img2 As Range 'déclare la variable imag (Image)
 
Set img1 = Sheets("Feuil1").Range("A1:B15")
Set img2 = Sheets("Feuil1").Range("A20")
 
'img1.Copy img2 'copie la plage  et la colle dans dest
    img1.Select
        Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    img2.Select
        Me.Paste
        ThisWorkbook.Names.Add "Image", Selection.Name 'mémorise dans le nom défini Image
        ActiveCell.Activate
 
 
Dim Pict As Object
On Error Resume Next
Set Pict = Me.Pictures([Image])
    Application.ScreenUpdating = False
 
Pict.Name = Range("F2").Value
Pict.CopyPicture 'copie la dernière image créée
With Me.ChartObjects.Add(0, 0, Pict.Width, Pict.Height).Chart
  .Paste 'colle l'image dans un graphique temporaire
  .Export "D:\" & Pict.Name & ".jpg", "JPG"
  .Parent.Delete 'Supprime le graphique
 
End With