Private Sub Image1_Click()
' Routing pour insérer image dans un contrôle de formulaire ActiveX
Dim Pict
Dim ImgFileFormat As String
Dim Ans As Integer
ImgFileFormat = "Image Files (*.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff; *.pdf ), *.jpg; *.jpeg; *.png; *.bmp; *.gif; *.tif; *.tiff; *.pdf"
Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then 'Aucune image sélectionnée
Pict = ""
[A2].MergeArea.Copy [A2] 'vide le presse-papier
Else
Image1.PictureSizeMode = fmPictureSizeModeZoom
Application.OnTime 1, Me.CodeName & ".Copier" 'exécution différée
End If
Image1.Picture = LoadPicture(Pict)
Application.ScreenUpdating = True 'rafraîchit l'écran
End Sub
Sub Copier()
[G5:K30].CopyPicture xlScreen, xlBitmap ' Copie l'image dans le presse papier
End Sub