bonjour Shraf , Ti et @+Thierry
Shraf , tu peux essayer la macro ci-dessous :
il faut tout d'abord créer un objet "mingx.input " pour définir le chemin de l'image et ensuite créer un objet "mingx.Bitmap" qui va etre inséré dans le projet
Sub ImageSwf()
'necessite d'activer la reference Mingx 1.0 Type Library
'michel le 14.07.2004
'testé avec WinpXP et Excel2002
'http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=101496&t=101476
Dim M As MINGXLib.Movie
Dim S As MINGXLib.input
Dim Sbis As MINGXLib.Bitmap
Set M = CreateObject("Mingx.Movie")
M.Create
M.SetDimension 300, 300
Set S = CreateObject("Mingx.input")
S.Create "C:\Documents and Settings\michel\dossier\general\excel\mingx\MonImage.JPG"
Set Sbis = CreateObject("Mingx.Bitmap")
Sbis.Create S
M.Add Sbis
M.Save ("C:\Documents and Settings\michel\dossier\general\excel\mingx\TestImage.swf")
End Sub
bon apres midi
MichelXld