Discussion :

[patyom]

Bonjour,
J'ai un petit PB d'enregistrement d'image issue d'une feuille excel dont la taille est de Width : 1200 et Height : 1640
Tout se passe normalement mais il ne m'enregistre que la partie que je vois à l'écran.
J'ai tout essayé sans succès, quelqu'un à une solution ?
Merci
voilà mon code

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
30
31
32
 
Sub ExportImage()
    Dim f As Worksheet, img As Shape, nomShape As String, nomImg As String
    Dim Emplacement As Range
' L'image est déjà sélectionnée au départ
'
    répertoire = "Macintosh HD:Users:PATRICK:MonDomaine:ImagesExcel"
    Set f = ActiveSheet
    If Left(TypeName(Selection), 7) = "Picture" Then
' Nom de l'image
        nomShape = Selection.Name
' Nom du ficher à enregistrer
        nomImg = "ImagesExcel-170399"
    Else
        MsgBox "Vous n'avez pas sélectionné d'image.", vbInformation, "Erreur de sélection"
    End If
' Stockage de l'image
    Set img = f.Shapes(nomShape)
    Hauteur = f.Shapes(nomShape).Height
 
' Copie
    img.CopyPicture
 
' Paste de l'image copiée avec création d'un graphique
    f.ChartObjects.Add(0, 0, img.Width, Hauteur).Chart.Paste
 
' Enregistrement
    f.ChartObjects(1).Chart.Export Filename:=répertoire & ":" & nomImg & ".png", FilterName:="png"
 
' Suppression du graphique
    f.ChartObjects(1).Delete
End Sub

[patyom]

Alors, personne ne peut m'expliquer pourquoi mon image est tronquée et n'y a-t-il pas une option pour un enregistrement correct ?

[unparia]

Bonjour

Alors, personne ne peut m'expliquer pourquoi mon image est tronquée et n'y a t'il pas une option pour un enregistrement correct ?

Tu es ici dans la section Excel, dont les visiteurs ne pratiquent pas forcément VBA (ce dont tu te sers)

[unparia]

Ah !
Te voilà maintenant dans la section VBA (ou j'ai eu la berlue, ou quelque-chose s'est produit)
As-tu essayé d'utiliser la propriété PictureSizeMode de ton contrôle image ?
Ou encore de jouer avec sa propriété Autosize ?

[patyom]

Bonsoir unparia,
"PictureSizeMode", Tu l'appliques comment ?
Je veux juste que ma macro me sauvegarde l'intégralité de mon image dans un fichier.
J'ai fait beaucoup d'essais et en fait c'est bien la partie que j'ai à l'écran qui s'enregistre.
J'ai bien pensé à déZoomer le plus possible mais bien entendu la qualité diminue énormément.
C'est vraiment pas terrible pourtant quand je clique droit sur l'image et que je l'enregistre avec la procédure c'est nickel.
Dommage que l'on ne puisse pas faire un enregistrement automatique, l'emploi du clic droit n'apparait pas dans les macros.

c'est rageant de ne pas pouvoir y arriver.

[Marc-L]

Te voilà maintenant dans la section VBA (ou j'ai eu la berlue, ou quelque-chose s'est produit)

Salut Jacques !
Non tu n'as pas eu la berlue, la discussion a bien été créée à l'origine dans le forum dédié aux formules de feuille de calculs …
Bonne soirée et bon dimanche à tous !

___________________________________________________________________________________________________________
Je suis Paris, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …