Discussion :

[agd92500]

Bonjour a tous, voici mon souci.

J'ai un fichier Exel qui comporte une image

Je souhaiterais pouvoir en cliquant sur l'image l'ouvrir dans un userform afin de pouvoir la modifier.

J'arrive a sélectionner une image sur l'ordi et l'afficher dans un UF, (cf. code ci dessous)

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Image_Click()
    Dim file As Variant
    ' choix du fichier ...
    file = Application.GetOpenFilename
    'ouverture
    If file <> False Then
        InkPicture1.Picture = LoadPicture(file)
    End If
End Sub

mais je n'arrive pas a ouvrir une image présente dans une feuille excel pour l'afficher dans un UF.
Comment adapter le code ?
Quelqu'un pourrait m'aider ?

merci d'avance.

agd

[mercatog]

A adapter

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
Dim Img As String
Dim Gr As Chart
 
With Feuil1
    .Shapes("MonImageSurFeuille").CopyPicture
    Set Gr = .ChartObjects.Add(50, 50, 240, 120).Chart
End With
 
Img = "ImageTempo.jpg"
With Gr
    .Paste
    .Export Img
    .Parent.Delete
End With
 
Me.Image1.Picture = LoadPicture(Img)
 
Kill Img

[agd92500]

Bonjour Mercatog,

Désolé pour mon retour tardif.
Merci pour ta réponse.

J'ai bien adapté ton code et ca marche.

merci.
Agd