Insérer une image dans un cadre image de userform

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

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")

Merci pour votre réponse,

je vais essayer cette solution.

bonne journée.

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

Merci pour votre recherche

et encore une très bonne journée je vous dirais si cela fonctionne bien

CDLT

Rechercher des sujets similaires à "inserer image cadre userform"