Image depuis Excel en UF

[néné06]

Bonjour le forum

Je recherche le code pour insérer une image placée sur ma feuille Excel, dans Userform

Merci.

 

[néné06]

Re : Image depuis Excel en UF

Bonjour Jean Marcel
Justement , je connais le code depuis un dossier extérieur ,mais je souhaiterai n’avoir que la feuille Excel ,avec images, pour éviter qu’un utilisateur ne copie la feuille, en oubliant le dossier des photos.

Merci pour l’aide.

 

[Eric 45]

Re : Image depuis Excel en UF

Bonjour à tous
Bonjour néné06, Jean-Marcel

Essai avec ceci :

' de frederic.sigonneau

Option Explicit
Private Declare Function GetTempFileNameA Lib "Kernel32" _
  (ByVal lpszPath As String, ByVal lpPrefixString As String, _
  ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

Private Declare Function OpenClipboard Lib "user32" _
  (ByVal hwnd As Long) As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function GetClipboardData Lib "user32" _
  (ByVal uFormat As Long) As Long

Private Declare Function CopyEnhMetaFileA Lib "gdi32" _
  (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long

Private Declare Function DeleteEnhMetaFile Lib "gdi32" _
  (ByVal hDC As Long) As Long

Private Sub UserForm_Initialize()
Dim FL1 As Worksheet
Dim FicTmp As String
    FicTmp = Space(160)
    GetTempFileNameA Environ("TMP"), "", 0, FicTmp
    FicTmp = Left$(FicTmp, InStr(FicTmp, vbNullChar) - 1)
    Set FL1 = Worksheets("Feuil1")
    FL1.Range("A1").CopyPicture
    OpenClipboard 0
    DeleteEnhMetaFile CopyEnhMetaFileA(GetClipboardData(14), FicTmp)
    CloseClipboard
    On Error Resume Next
    Me.Image1.Picture = LoadPicture(FicTmp)
    Kill FicTmp
End Sub

Eric

 

[néné06]

Re : Image depuis Excel en UF

Bonjour Eric45

J'ai posé les code sur le modèle ci_joint , mais le résultat n'affiche pas la
photo mais le titre.

je continu mes recherches en te remerciant

Merci
A+

 

[kjin]

Re : Image depuis Excel en UF

Bonsoir,
[thread=119448]Une solution ici[/thread]
A+
kjin

 

[néné06]

Re : Image depuis Excel en UF

bonsoir
Avec mes remerciements à Kjin,myDearFreind! et grace au module de Stephen Bullen
ce petit prog fonctionne super et je pense qu'il peut intéresser d'autres XLDnautes