Insert a logo in an image file in access

  • Thread starter Thread starter Sandoval. Alex
  • Start date Start date
S

Sandoval. Alex

lHi.. Im doing a DB to manage images and videos files. The database search
file in a folder caled "For Classify", and when I classify a file, the
original file is deleted an copied in other folder called "Classify" with
other name. The idea is to put a logo in the left corner of the new clasify
file and save it with this logo. It is possible to do this in access? Any
ideas?
Thanks

Note: The database don´t save any files on any table, only the file direction
 
I'm going to try... I'm new in this matters... Is there a Manual to use this
library?
thanks in advance
Alex
 
Hi Alex
Do you have an example to run imagemagick with a command line to
modify/copy or whatever an image from visual basic of access?
Thanks
Alex
 
Hi Alex
Do you have an example to run imagemagick with a command line to
modify/copy or whatever an image from visual basic of access?
Thanks
Alex
 
hi,
I am using their com interface like this:
Dim im As ImageMagickObject.MagickImage
Set im = CreateObject("ImageMagickObject.MagickImage.1")

Dim msg As Variant
msg = im.Convert(FilePDF, "-rotate", intAngle & "", FilePNG)

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com
 
hi,
I am using their com interface like this:
Dim im As ImageMagickObject.MagickImage
Set im = CreateObject("ImageMagickObject.MagickImage.1")

Dim msg As Variant
msg = im.Convert(FilePDF, "-rotate", intAngle & "", FilePNG)

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com
 
Hi Alex
I try using and modifying the code example that you send me, but when I
execute the procedure, an execution error apear: -2147418113(8000ffff) Error
Method with 'Composite' of object IMagickImage.
Could you help me telling me what I'm doing wrong or what I forget to do?

This is the code that I'm using..

Private Sub Comando0_Click()
Dim im As ImageMagickObject.MagickImage
Dim logo, image, NewFile
Set im = CreateObject("ImageMagickObject.MagickImage.1")

logo = "C:\Documents and Settings\Alejandro\My Documents\logo.JPG"
image = "C:\Documents and Settings\Alejandro\My Documents\ArtCirugia.JPG"
NewFile = "C:\Documents and Settings\Alejandro\My Documents\Salida.JPG"

Dim msg As Variant
msg = im.Composite("-gravity south \" & image & " " & logo & " " & NweFile)

End Sub

Thank
Alejandro
 
Hi Alex
I try using and modifying the code example that you send me, but when I
execute the procedure, an execution error apear: -2147418113(8000ffff) Error
Method with 'Composite' of object IMagickImage.
Could you help me telling me what I'm doing wrong or what I forget to do?

This is the code that I'm using..

Private Sub Comando0_Click()
Dim im As ImageMagickObject.MagickImage
Dim logo, image, NewFile
Set im = CreateObject("ImageMagickObject.MagickImage.1")

logo = "C:\Documents and Settings\Alejandro\My Documents\logo.JPG"
image = "C:\Documents and Settings\Alejandro\My Documents\ArtCirugia.JPG"
NewFile = "C:\Documents and Settings\Alejandro\My Documents\Salida.JPG"

Dim msg As Variant
msg = im.Composite("-gravity south \" & image & " " & logo & " " & NweFile)

End Sub

Thank
Alejandro
 
Back
Top