error 429 ActiveX component cannot create object.

ImageMagickObject is a Windows COM+ interface to ImageMagick. COM+, Visual Basic, and Delphi users should post to this discussion group.
Post Reply
Maazter
Posts: 1
Joined: 2014-11-30T20:29:20-07:00
Authentication code: 6789

error 429 ActiveX component cannot create object.

Post by Maazter » 2014-11-30T20:53:12-07:00

Hi Everyone,

I am new to ImageMagick when i came across it, I thought that this would be great solution for a problem I am having.

The issue that I have at the moment using imagemagic is as the title of the post describes "error 429 ActiveX component cannot create object."

I have the latest version of imagemagick "ImageMagick-6.9.0-0-Q16-x64-dll.exe" and have tried various methods of applying the vbacode, but no matter how it is applied I get the same error.
I have also tried the static version of ImageMagick with no success. I would like to use the VBAcode because of the fact that it is possible that in one folder there will be 30-100 pictures that need to be resized at once. The following code is what I am testing with at the moment.

Ideally I would like to resize them to a few values selectable in a combo-box such as 1024x768. but I cannot get past this activex error.

Code: Select all

Private Sub TstMoveRsz_Click()
On Error GoTo ErrorHandler

Dim inputdir, inputfld, outputdir, Destnfld, fso, fPic, MinSize, MaxSize
Dim img 'As New MagickImage


inputdir = "C:\DB_Data\Data\mark\Photos\Test\"
outputdir = "C:\DB_Data\Data\mark\Photos\Test\Resized\"

MinSize = "50%" 'default to reduce 1/4 size of original, it can be changed
MaxSize = 10000 '100000000 ' default only file larger than 100 Mega need to be resized

Set img = CreateObject("ImageMagickObject.MagickImage.1")
Set fso = CreateObject("Scripting.FileSystemObject")
Set inputfld = fso.GetFolder(inputdir)
Set Destnfld = fso.GetFolder(outputdir)

'-resize width{%}{@} {!} {<} {>}

For Each fPic In inputfld.Files

If Not fso.FileExists(outputdir & fso.GetBaseName(fPic) & _
"_resized." & fso.GetExtensionName(fPic)) And fPic.Size > MaxSize Then

img.Convert "-quiet", inputfld & fPic.Name, "-resize", MinSize, Destnfld & _
fso.GetBaseName(fPic) & "_resized." & fso.GetExtensionName(fPic)

End If

Next

Set img = Nothing


ErrorHandlerExit:
   Exit Sub

ErrorHandler:
   MsgBox "Error No: " & Err.Number & "; Description: " & Err.Description
   Resume ErrorHandlerExit

End Sub
If anyone can help it would be greatly appreciated :-)

Nems
Posts: 2
Joined: 2015-06-04T01:45:56-07:00
Authentication code: 6789

Re: error 429 ActiveX component cannot create object.

Post by Nems » 2015-06-04T01:47:41-07:00

Hi,
did you get a solution to your ActiveX problem? I get the same problem..

Thank you.
Nems.

gazzamazza
Posts: 1
Joined: 2017-07-31T21:08:46-07:00
Authentication code: 1151

Re: error 429 ActiveX component cannot create object.

Post by gazzamazza » 2017-07-31T21:28:59-07:00

Hi everyone,
I've got a very similar issue - I receive the same error (429) when running a .vbs file from the Windows Command Prompt and I narrowed the line of code down to:

Code: Select all

Set img = CreateObject("ImageMagickObject.MagickImage.1")
The issue is that the same line of code works from VBA (via Excel 2010 32bit) ?

This is happening only after un-installing ImageMagick v7.0.6-1-Q16-x86 and then updating it via v7.0.6-4-Q16-x86

The only way I could get my .vbs to run successfully was to invoke it via a C:\Windows\SysWOW64\Cmd based shell.
This lead me to believe that I had mistakenly installed the 64bit version of the library.
When I checked the Installed Apps (via Control Panel | Programs and Features) I did have the correct 32bit version installed :shock:

Please note, I have rebooted after the uninstall and subsequent to the new install, and I've loaded the suggested VC Runtime Packs (along with the other gazillion already installed on my PC)

Any ideas/help - greatly appreciated!!

Here's a link to a large screenshot of all the configuration: http://img.pixady.com/2017/08/411794_20 ... kprobs.png

Post Reply