Hallo doberhund,
leider ist es mir nicht gelungen, den Fehler zu reproduzieren.
Microsoft rät, bei diesem Fehler den Befehl NEW nicht zu verwenden.
Du könntest also versuchen in der Sub EditInPhotoShop() die Zeile:
[INDENT]Dim obj As New Photoshop.Application[/INDENT]
durch diese beiden Zeilen zu ersetzen:
[INDENT]Dim obj As Object
Set obj = CreateObject("Photoshop.Application")[/INDENT]
Nachtrag:
Du solltest vielleicht auch die Zeile:
[INDENT]On Error GoTo mainErrHandler[/INDENT]
auskommentieren, dann zeigt der Debugger in welcher Zeile der Fehler auftritt.
Gruß
Koter
leider ist es mir nicht gelungen, den Fehler zu reproduzieren.
Microsoft rät, bei diesem Fehler den Befehl NEW nicht zu verwenden.
Du könntest also versuchen in der Sub EditInPhotoShop() die Zeile:
[INDENT]Dim obj As New Photoshop.Application[/INDENT]
durch diese beiden Zeilen zu ersetzen:
[INDENT]Dim obj As Object
Set obj = CreateObject("Photoshop.Application")[/INDENT]
Nachtrag:
Du solltest vielleicht auch die Zeile:
[INDENT]On Error GoTo mainErrHandler[/INDENT]
auskommentieren, dann zeigt der Debugger in welcher Zeile der Fehler auftritt.
Gruß
Koter