je suis en train de rassembler des infos sur la librairie gratuite MINGX
(basée sur ming pour PHP et C++ http://www.swfkit.com/download.html) qui
permet de créer des fichiers .swf sans Flash. L'idée est par la suite
d'utiliser un programme VBA avec Excel pour générer des fichiers "Flash".
Le pb c'est qu'il n'y a pas de doc avec la librairie...
MA QUESTION : comment ouvrir un .jpg en tant qu'objet en VBA ?
Set m = CreateObject("Mingx.Movie")
m.Create
m.SetDimension 640, 480
m.Add CreateObject("Mingx.Bitmap").Create("C:\\image.jpg")
m.Save ("c:\\image.swf")
Mais bien sûr il faudrait ouvrir le fichier C:\\image.jpg et je n'y arrive
pas...
J'ai essayé en vain avec input ou Open "image.jpg" For Binary Access Read As
#1
L'aide que j'ai sur la fonction Create est :
Function Create(input As Object, [alpha As Object]) As Long
Membre de MINGXLib.Bitmap
method Create
Vous pouvez lire mes notes persos sur ce que j'ai trouvé pour le moment ici
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rv
Salut,
Essayes ceci:
Sub testMing() Dim objMingMovies As MINGXLib.Movie Dim objMingBmp As MINGXLib.Bitmap
Set objMingMovies = New MINGXLib.Movie objMingMovies.Create objMingMovies.SetDimension 640, 480 Set objMingBmp = New MINGXLib.Bitmap Call objMingBmp.Create(LoadPicture("C:image.jpg")) objMingMovies.Add objMingBmp objMingMovies.Save "c:image.swf" set objMingBmp = Nothing set objMingMovies= Nothing End Sub
A+
Rv
"Schraf" a écrit dans le message de news:
Bonjour,
je suis en train de rassembler des infos sur la librairie gratuite MINGX (basée sur ming pour PHP et C++ http://www.swfkit.com/download.html) qui permet de créer des fichiers .swf sans Flash. L'idée est par la suite d'utiliser un programme VBA avec Excel pour générer des fichiers "Flash".
Le pb c'est qu'il n'y a pas de doc avec la librairie...
MA QUESTION : comment ouvrir un .jpg en tant qu'objet en VBA ?
Set m = CreateObject("Mingx.Movie") m.Create m.SetDimension 640, 480 m.Add CreateObject("Mingx.Bitmap").Create("C:image.jpg") m.Save ("c:image.swf")
Mais bien sûr il faudrait ouvrir le fichier C:image.jpg et je n'y arrive pas... J'ai essayé en vain avec input ou Open "image.jpg" For Binary Access Read As
#1
L'aide que j'ai sur la fonction Create est :
Function Create(input As Object, [alpha As Object]) As Long Membre de MINGXLib.Bitmap method Create
Vous pouvez lire mes notes persos sur ce que j'ai trouvé pour le moment ici
http://ead.univ-angers.fr/~schraf/tdas/mingx.pdf
Merci !
Salut,
Essayes ceci:
Sub testMing()
Dim objMingMovies As MINGXLib.Movie
Dim objMingBmp As MINGXLib.Bitmap
Set objMingMovies = New MINGXLib.Movie
objMingMovies.Create
objMingMovies.SetDimension 640, 480
Set objMingBmp = New MINGXLib.Bitmap
Call objMingBmp.Create(LoadPicture("C:image.jpg"))
objMingMovies.Add objMingBmp
objMingMovies.Save "c:image.swf"
set objMingBmp = Nothing
set objMingMovies= Nothing
End Sub
A+
Rv
"Schraf" <pubschraf@voila.fr> a écrit dans le message de
news:e81ggpBaEHA.384@TK2MSFTNGP10.phx.gbl...
Bonjour,
je suis en train de rassembler des infos sur la librairie gratuite MINGX
(basée sur ming pour PHP et C++ http://www.swfkit.com/download.html) qui
permet de créer des fichiers .swf sans Flash. L'idée est par la suite
d'utiliser un programme VBA avec Excel pour générer des fichiers "Flash".
Le pb c'est qu'il n'y a pas de doc avec la librairie...
MA QUESTION : comment ouvrir un .jpg en tant qu'objet en VBA ?
Set m = CreateObject("Mingx.Movie")
m.Create
m.SetDimension 640, 480
m.Add CreateObject("Mingx.Bitmap").Create("C:\image.jpg")
m.Save ("c:\image.swf")
Mais bien sûr il faudrait ouvrir le fichier C:\image.jpg et je n'y arrive
pas...
J'ai essayé en vain avec input ou Open "image.jpg" For Binary Access Read
As
#1
L'aide que j'ai sur la fonction Create est :
Function Create(input As Object, [alpha As Object]) As Long
Membre de MINGXLib.Bitmap
method Create
Vous pouvez lire mes notes persos sur ce que j'ai trouvé pour le moment
ici
Sub testMing() Dim objMingMovies As MINGXLib.Movie Dim objMingBmp As MINGXLib.Bitmap
Set objMingMovies = New MINGXLib.Movie objMingMovies.Create objMingMovies.SetDimension 640, 480 Set objMingBmp = New MINGXLib.Bitmap Call objMingBmp.Create(LoadPicture("C:image.jpg")) objMingMovies.Add objMingBmp objMingMovies.Save "c:image.swf" set objMingBmp = Nothing set objMingMovies= Nothing End Sub
A+
Rv
"Schraf" a écrit dans le message de news:
Bonjour,
je suis en train de rassembler des infos sur la librairie gratuite MINGX (basée sur ming pour PHP et C++ http://www.swfkit.com/download.html) qui permet de créer des fichiers .swf sans Flash. L'idée est par la suite d'utiliser un programme VBA avec Excel pour générer des fichiers "Flash".
Le pb c'est qu'il n'y a pas de doc avec la librairie...
MA QUESTION : comment ouvrir un .jpg en tant qu'objet en VBA ?
Set m = CreateObject("Mingx.Movie") m.Create m.SetDimension 640, 480 m.Add CreateObject("Mingx.Bitmap").Create("C:image.jpg") m.Save ("c:image.swf")
Mais bien sûr il faudrait ouvrir le fichier C:image.jpg et je n'y arrive pas... J'ai essayé en vain avec input ou Open "image.jpg" For Binary Access Read As
#1
L'aide que j'ai sur la fonction Create est :
Function Create(input As Object, [alpha As Object]) As Long Membre de MINGXLib.Bitmap method Create
Vous pouvez lire mes notes persos sur ce que j'ai trouvé pour le moment ici
