insérer une image dans un cadre image de userform

Y compris Power BI, Power Query et toute autre question en lien avec Excel
f
fabrice2272
Nouveau venu
Nouveau venu
Messages : 5
Appréciation reçue : 1
Inscrit le : 21 décembre 2017
Version d'Excel : 2010 FR

Message par fabrice2272 » 21 décembre 2017, 10:41

bonjour,
afin d’améliorer un QCM en VBA, j aurais souhaitez insérer une image d' une cellule dans un cadre image en fonction d une question qui elle se situe dans un textBox.
Si quelqu'un à une idée je suis preneur
Merci par avance
et bonne fêtes de fin d'année
G
GVIALLES
Membre dévoué
Membre dévoué
Messages : 563
Appréciations reçues : 44
Inscrit le : 28 novembre 2017
Version d'Excel : 2016

Message par GVIALLES » 21 décembre 2017, 11:45

Bonjour Fabrice2272,

Une idée (pas très élégante :( mais j'ai pas mieux )

- Copier l'image de la cellule (en fait de la "shape" insérée dans la cellule) vers un fichier "MonImage.jpg" par exemple
- Loader l'image dans la forme avec l'instruction :

userform.CadreImage.Picture = LoadPicture("MonImage.jpg")
Cordialement,

Gérard
f
fabrice2272
Nouveau venu
Nouveau venu
Messages : 5
Appréciation reçue : 1
Inscrit le : 21 décembre 2017
Version d'Excel : 2010 FR

Message par fabrice2272 » 21 décembre 2017, 12:25

Merci pour votre réponse,
je vais essayer cette solution.
bonne journée.
G
GVIALLES
Membre dévoué
Membre dévoué
Messages : 563
Appréciations reçues : 44
Inscrit le : 28 novembre 2017
Version d'Excel : 2016

Message par GVIALLES » 21 décembre 2017, 12:52

Je joins un code trouvé sur le NET pour copier l'image de la feuille vers un fichier :
'Based on http://www.jpsoftwaretech.com/export-excel-range-to-a-picture-file/

Private Sub Save_Object_As_Picture(saveObject As Object, imageFileName As String)

    'Save a picture of an object as a JPG/JPEG/GIF/PNG file
    
    'Arguments
    'saveObject     - any object in the CopyPicture method's 'Applies To' list, for example a Range or Shape
    'imageFileName  - the .gif, .jpg, or .png file name (including folder path if required) the picture will be saved as
    
    Dim temporaryChart As ChartObject
     
    Application.ScreenUpdating = False
    
    saveObject.CopyPicture xlScreen, xlPicture
    
    Set temporaryChart = ActiveSheet.ChartObjects.Add(0, 0, saveObject.Width + 1, saveObject.Height + 1)
    With temporaryChart
        .Border.LineStyle = xlLineStyleNone      'No border
        .Chart.Paste
        .Chart.Export imageFileName
        .Delete
    End With
    
    Application.ScreenUpdating = True
    
    Set temporaryChart = Nothing
    
End Sub
Cordialement,

Gérard
f
fabrice2272
Nouveau venu
Nouveau venu
Messages : 5
Appréciation reçue : 1
Inscrit le : 21 décembre 2017
Version d'Excel : 2010 FR

Message par fabrice2272 » 21 décembre 2017, 12:55

Merci pour votre recherche
et encore une très bonne journée je vous dirais si cela fonctionne bien
CDLT
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message