Pro can be used stand-alone as well as a Photoshop plugin). The enlargement algorithm, support for image formats with 16 bit perĬhannel precision, and it's only a stand-alone application (whereas Unsharp masking (auto post-processing), allowing manual finetuning of Same but misses certain Pro features like batch processing, built in For less professional usage there'sĪlso a regular version (S-Spline 2) for $69, which basically does the To force some sort of sharpening afterwards which results in equally It's much cheaper ($129) than Extensis and delivers at leastĬomparable quality (actually better in my opinion, as smartScale seems But it's $199, which is a little steep for me to use just for these few images.Īny other (CHEAP) plugins or methods that might work better?Ĭliff, you really might want to try S-Spline Pro, we have a demo on I did find a PS plugin from Extensis, called pxl SmartScale, that sounds like it's designed to help with this.
Newfilename = Mid(sfilename, 1, Len(sfilename) - 4) & SUFFIX & ".jpg"ĭocRef.SaveAs newfilename, jpgSaveOptions, True, 2 'for psLowercaseĪ by I was wondering if there's some "technique", or maybe a plugin, that does this kind of function better than just telling PE to resize the file? Set jpgSaveOptions = CreateObject("Photoshop.JPEGSaveOptions") If modified Then 'only save if the image was modified
If docRef.Height RESIZEHEIGHT Then 'proceed if not already resizedĭocRef.ResizeImage, RESIZEHEIGHT 'preserves aspect ratio If docRef.Width RESIZEWIDTH Then 'proceed if not already resizedĭocRef.ResizeImage RESIZEWIDTH 'preserves aspect ratio If docRef.Width >= docRef.Height Then 'horizontal photo Set appRef = CreateObject("Photoshop.Application")Ī 2 'dont' save Set appRef = GetObject(, "Photoshop.Application") If StrComp(objProcess.Name, "photoshop.exe", vbTextCompare) = 0 Then Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process") Set WshShell = WScript.CreateObject("WScript.Shell") If InStrRev(sfile, ".jpg", -1, vbTextCompare) = Len(sfile) - 3 Then Set fso = CreateObject("Scripting.FileSystemObject") Spath = Mid(WScript.ScriptFullName, 1, InStrRev(WScript.ScriptFullName, "\", -1, vbBinar圜ompare)) To run it, simply place the script in your image folder (make sure to take a backup) and execute the file.Īuto-resize-images-v0.1.vbs Public Const RESIZEWIDTH = 150
IGNOREVERTICAL – should vertical (portrait) images be ignored (I like to do these manually as I crop them to landscape).Decided to learn Photoshop VBScripting, don’t know why I didn’t do this sooner, I now have scripts to automatically generate my blog thumbnails (as below), and add little Google Maps markers on them (see here).Ī few constants to change in the script (edit with Notepad)
0 kommentar(er)
