Image depuis Excel en UF

' 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