News und Tutorials zu Adobe Photoshop

[GastForen Programme Print/Bildbearbeitung Adobe Photoshop Photoshop SAVEFORWEB VB-Script

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Print/Bildbearbeitung - Photos, Layout, Design
Themen
Beiträge
Moderatoren
Letzter Beitrag

Photoshop SAVEFORWEB VB-Script

Loonix
Beiträge gesamt: 30

19. Aug 2015, 18:47
Beitrag # 1 von 16
Bewertung:
(8296 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,

ich weiß jetzt nicht ob ich hier 100%ig richtig bin aber ich stelle meine Frage bezüglich Scripting(VBS) und Photoshop mal hier rein.

Ich habe ein Programm geschrieben welches bisher macht was es soll. Jetzt möchte ich ganz gerne, das Photoshop das Bild mit den eigenschaften "Für Web speichern" abspeichert.

Mein Code sieht bisher wie folgt aus:

Code
output = "C:\out.jpg" 

Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")

saveOptions.Format = 6
saveOptions.Interlaced = false
saveOptions.IncludeProfile = false
saveOptions.MatteColor = RGBColor
saveOptions.ColorReduction = 1
saveOptions.quality = 70
saveOptions.Colors = 256
saveOptions.Transparency = false
saveOptions.Dither = psNoDither

docRef.Export output, ExportOptionsSaveForWeb, saveOptions


Wenn ich mein Script ausführe bekomme ich die Fehlermeldung "Erfoderlicher Wert Fehlt".

Was habe ich vergessen?

Achja ich benutze Photoshop CC

Gruß
X

Photoshop SAVEFORWEB VB-Script

pixxxelschubser
Beiträge gesamt: 1679

25. Aug 2015, 18:28
Beitrag # 2 von 16
Beitrag ID: #542304
Bewertung:
(8153 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi,
ich bin zwar nicht mit VB vertraut – aber du hast zumindest docRef nicht definiert. Das könnte eventuell die Fehlermeldung erklären (falls diese nicht auf einem anderen Fehler beruht).

Ich kenne die Syntax nicht, sie dürfte aber wahrscheinlich so oder so ähnlich lauten:

Code
Dim PSDapp As Object = CreateObject("Photoshop.Application") 
Dim docRef As Object = PSDapp.open("C:\out.jpg")


oder aber:

Code
Dim docRef 
Set docRef = appRef.ActiveDocument




Wink
Viele Grüße
pixxxelschubser




Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.

Isaac Newton




als Antwort auf: [#542141]

Photoshop SAVEFORWEB VB-Script

Loonix
Beiträge gesamt: 30

26. Aug 2015, 11:57
Beitrag # 3 von 16
Beitrag ID: #542314
Bewertung:
(8064 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo pixxxelschubser,

danke für deine Antwort, ich hätte mal den gesamten Code posten sollen, ich habe die Objekte weiter oben deklariert.
Der Fehler muss im Aufruf der Funktion "docRef.Export" sein. Die "VBSCRIPT SCRIPTING REFERENCE" von Adobe hilft mir hier auch nicht weiter :-(.


Zitat Dim appRef
Dim docRef
Dim zielpfad
Dim dateiname
Dim ausgabename

UseUTF8Encoding=True

zielpfad="C:\"

Set appRef = CreateObject( "Photoshop.Application" )
Set FSO = CreateObject("Scripting.FileSystemObject")


Set docRef = appRef.Open("C:\input.psd")

ausgabename = zielpfad + "Output-" +dateiname + ".jpg"

Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")
Set docRef = appRef.ActiveDocument

saveOptions.Format = 6
saveOptions.Interlaced = false
saveOptions.IncludeProfile = false
saveOptions.MatteColor = RGBColor
saveOptions.ColorReduction = 1
saveOptions.quality = 70
saveOptions.Colors = 256
saveOptions.optimized = true
saveOptions.Transparency = false
saveOptions.Dither = psNoDither

docRef.Export ausgabename,2, saveOptions



viele Grüße
Loonix


als Antwort auf: [#542304]

Photoshop SAVEFORWEB VB-Script

Henry
Beiträge gesamt: 930

26. Aug 2015, 13:40
Beitrag # 4 von 16
Beitrag ID: #542315
Bewertung: |
(8030 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi,
jemand im engl. Adobe-Forum hatte folgenden Code gepostet (für CS5) - funktioniert der denn (auch) bei dir (Bilddateinamen ändern!)?
Code
Set appRef = CreateObject("Photoshop.Application")     
Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")
Set img = appRef.Open("c:\image.png")

saveOptions.Format = 13 'psPNGSave
saveOptions.PNG8 = True
saveOptions.Transparency = True
saveOptions.Dither = psNoDither
img.ResizeImage 620, 620

img.Export "c:\image2.png", 2, saveOptions



als Antwort auf: [#542314]

Photoshop SAVEFORWEB VB-Script

pixxxelschubser
Beiträge gesamt: 1679

26. Aug 2015, 19:49
Beitrag # 5 von 16
Beitrag ID: #542320
Bewertung:
(7973 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Zitat
ausgabename = zielpfad + "Output-" +dateiname + ".jpg"

@Loonix,
deine Variable dateiname ist nicht definiert. Deshalb
ist deine Variable ausgabename nicht komplett.



Wink
Viele Grüße
pixxxelschubser




Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.

Isaac Newton




als Antwort auf: [#542314]

Photoshop SAVEFORWEB VB-Script

Loonix
Beiträge gesamt: 30

1. Sep 2015, 11:57
Beitrag # 6 von 16
Beitrag ID: #542487
Bewertung:
(7803 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
@pixxxelschubser

auch nach dem ich die Variable "dateiname" definiert habe bekomme ich immer noch die Fehlermeldung das ein erforderlicher Wert fehlt.

Die gleiche Meldung bekomme ich auch wenn ich das Script von Henry kopiere und ausführe.

:(.


als Antwort auf: [#542320]

Photoshop SAVEFORWEB VB-Script

Henry
Beiträge gesamt: 930

1. Sep 2015, 13:05
Beitrag # 7 von 16
Beitrag ID: #542492
Bewertung:
(7776 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Nur mal auf Verdacht, weil wohl in früheren Versionen fehlerhaft von Adobe dokumentiert:
Probier mal in CC statt ".Export ..." -> ".ExportDocument ..." aus.


als Antwort auf: [#542487]

Photoshop SAVEFORWEB VB-Script

Loonix
Beiträge gesamt: 30

2. Sep 2015, 12:42
Beitrag # 8 von 16
Beitrag ID: #542507
Bewertung:
(7681 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Henry,

danke das du dich auch ein bisschen mit dem Problem auseinandersetzt.

Es ist ja fehlerhaft Dokumentiert von Adobe, dort soll man ja ExportDocument benutzen...

Wenn ich .Export auf .ExportDocument abänder bekomme ich die Fehlermeldung: "Das Objekt unterstützt diese Eigenschaft oder Methode nicht."

Gruß
Loonix


als Antwort auf: [#542492]

Photoshop SAVEFORWEB VB-Script

Henry
Beiträge gesamt: 930

2. Sep 2015, 14:05
Beitrag # 9 von 16
Beitrag ID: #542508
Bewertung:
(7645 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Dann dürfte zumindest .Export immer noch korrekt sein.

Fällt mir nur noch ein, dass du statt "Export" mal die Methode "SaveAs" ausprobierst.

Außerdem könntest du deinen VBS-Code mal mit entsprechendem JS-Code abgleichen? Hier sind zwei JS-Scripte die unterschiedliche Bilddateien aus einen ganzen Ordner entweder "speichern als jpg" (oben) oder "exportieren als png" (darunter):
http://www.andrewnoske.com/...age_Type_Conversions


als Antwort auf: [#542507]

Photoshop SAVEFORWEB VB-Script

Loonix
Beiträge gesamt: 30

4. Sep 2015, 11:56
Beitrag # 10 von 16
Beitrag ID: #542541
Bewertung:
(7486 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Henry,

der VB-script Code entspricht dem des Javascript.
Gibt es irgendeine möglichkeit einen Debugger drüber laufen zu lassen der einem sagt was fehlt?

Hast du eine möglichkeit es mal bei dir zu testen?

Eine Javascript Funktion in ein VBscript einzubinden wird nicht klappen oder?

Gruß
Loonix


als Antwort auf: [#542508]

Photoshop SAVEFORWEB VB-Script

Henry
Beiträge gesamt: 930

4. Sep 2015, 13:03
Beitrag # 11 von 16
Beitrag ID: #542543
Bewertung:
(7434 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Nee, sorry. Ich benutze weder PS-Scripte noch "CC". :-(
Da müsste sich ein anderer Experte freiwillig melden.


als Antwort auf: [#542541]

Photoshop SAVEFORWEB VB-Script

pixxxelschubser
Beiträge gesamt: 1679

4. Sep 2015, 22:43
Beitrag # 12 von 16
Beitrag ID: #542546
Bewertung: ||
(7322 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Antwort auf [ Loonix ] … der VB-script Code entspricht dem des Javascript …

Nicht wirklich.

und wie gesagt – ich könnte dir lediglich mit einem funktionierenden Javascript dienen.

Code
// saveForWeb_asFunction_kurz .jsx 
function exportSFWJpg( aDoc, saveFile, qty ) {
var exportOpts = new ExportOptionsSaveForWeb();
exportOpts.format = SaveDocumentType.JPEG
exportOpts.includeProfile = false; // nicht unbedingt nötig, weil default
exportOpts.quality = qty;
exportOpts.optimized = true;
exportOpts.interlaced = false;

aDoc.exportDocument( saveFile, ExportType.SAVEFORWEB, exportOpts );
}

var aDoc = activeDocument;
var fname = "~/Desktop/Testdateien"; // dieser Ordner muss vorhanden sein
var saveFolder = Folder(fname);
var docName = aDoc.name;
var saveName = docName.replace( /\.[^.]+$/,'.jpg' );
exportSFWJpg( aDoc, new File( saveFolder + '/' + saveName ), 80 );

Portieren musst du leider selbst (aber da sich ja die Codes deiner Meinung nach entsprechen … )
Smile



Wink
Viele Grüße
pixxxelschubser




Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.

Isaac Newton




als Antwort auf: [#542541]

Photoshop SAVEFORWEB VB-Script

pixxxelschubser
Beiträge gesamt: 1679

8. Sep 2015, 19:23
Beitrag # 13 von 16
Beitrag ID: #542578
Bewertung:
(7042 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
@Loonix,
hat sich das Thema für dich zwischenzeitlich erledigt?



Wink
Viele Grüße
pixxxelschubser




Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.

Isaac Newton




als Antwort auf: [#542546]

Photoshop SAVEFORWEB VB-Script

Loonix
Beiträge gesamt: 30

30. Sep 2015, 18:06
Beitrag # 14 von 16
Beitrag ID: #543160
Bewertung:
(6643 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hi Pixxxelschubser,

sorry für die späte Antwort, war nicht im Lande ;).

Ich habe deine javascript-Version abgeändert und siehe da, es funktioniert.

Code
Dim output 
output = "C:\Users\Desktop\output\ausgabe.jpg"


Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")

saveOptions.Format = 6 'JPEG
saveOptions.Interlaced = false
saveOptions.quality = 70
saveOptions.IncludeProfile = false
saveOptions.optimized = true

Set active = appRef.ActiveDocument
active.Export output,2, saveOptions



Gruß und Danke schön
Loonix


als Antwort auf: [#542578]
(Dieser Beitrag wurde von Loonix am 30. Sep 2015, 18:07 geändert)

Photoshop SAVEFORWEB VB-Script

pixxxelschubser
Beiträge gesamt: 1679

30. Sep 2015, 20:33
Beitrag # 15 von 16
Beitrag ID: #543170
Bewertung:
(6612 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Wink



Wink
Viele Grüße
pixxxelschubser




Was wir wissen, ist ein Tropfen; was wir nicht wissen, ein Ozean.

Isaac Newton




als Antwort auf: [#543160]
X

Aktuell

PDF / Print
PitStop_22

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
21.06.2022

Online
Dienstag, 21. Juni 2022, 10.00 - 10.30 Uhr

Webinar

Viele Druckereien – kleine und große – suchen heute nach Wegen, ihre Effizienz und Produktivität zu steigern. Dabei erkennen sie oft, dass sie sich dringend um die Optimierung, Standardisierung und Automatisierung ihrer Workflows und Prozesse kümmern sollten. In unserer kostenlosen, jeweils ca. 30 minütigen Webinar-Reihe erfahren Sie, wie Sie die Effizienz- und Produktivitätspotenziale Ihrer Druckerei erschließen können – und wie einfach und kostengünstig das sein kann.

kostenlose 3-teilige Webinar-Reihe, 21., 23. und 26. Juni 2022, jeweils 10:00 - 10:30

Ja

Organisator: Impressed GmbH

Kontaktinformation: Silvia Noack, E-Mailsnoack AT impressed DOT de

https://impressed-workflow-server.de/impressed-webinar-reihe-the-big-picture/

Impressed Webinar-Reihe THE BIG PICTURE
Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/