Discussion :

[sebù des bois]

Bonjour,
J'ai pris une "photo" d'un groupe de graphiques et d'informations qui se trouvent toutes dans une des feuilles excel que j'ai dans mon classeur. J'ai mis la photo (ou l'image correspondante) dans une autre feuille. J'aimerai maintenant si l'utilisateur du fichier le veut (après update de certaines données) afficher cette image dans un userform mais je n'y arrive pas...Je n'ai trouvé que des aides pour afficher un graphique mais pas une image qui se trouve dans mes feuilles excel...Quelqu'un aurait une idée?

merci

sebù

[SilkyRoad]

bonjour

j'espere que ce lien pourra t'aider

http://www.developpez.net/forums/sho...d.php?t=204965


michel

[sebù des bois]

J'ai un souci avec son code:

mon message d'erreur:

membre de méthode ou de données introuvable

c'est sur la dernière ligne

est ce que image1 doit etre déclarée en pictureformat? si je mets dim image as shape j'ai ce message d'erreur qui apparait:

variable objet ou variable de bloc With non définie

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
33
34
35
36
 
...
    Application.Calculate
    Unload UserForm1
 
    'on va afficher l'image
    Dim nb As Byte
    Dim Sh As Shape
    Dim Image1 As PictureFormat
 
    'Supprime l'image temportaire si elle existe
    If Dir(Fichier) <> "" Then Kill Fichier
 
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("output image").Shapes(1)
 
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    End With
 
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
 
    'Affiche l'image dans le graphique
    Image1.Picture = LoadPicture(Fichier)
 
fin_fonction:
End Sub

[SilkyRoad]

bonjour

supprime cette ligne qui ne sert à rien

Dim Image1 As PictureFormat

d'ou lances tu ta procedure? depuis un module ou un UserForm?



michel

[sebù des bois]

supprime cette ligne qui ne sert à rien
d'ou lances tu ta procedure? depuis un module ou un UserForm?

effectivement je le lance en cliquant sur un bouton dans un userform, si je ne mets pas cette ligne, j'ai un message d'erreur qui dit:

variable non définie en me donnant image1 comme cette variable...

[SilkyRoad]

rebonjour

j'ai du mal à te suivre

en tout dedut de procedure tu as ecrit

Unload UserForm1

cette instruction sert à fermer les boites de dialogue:
il s'agit du userForm contenant la macro ou d'un autre ?


as tu inséré un controle Image nommé "Image1" dans l'UserForm?



michel