Click here to Skip to main content
11,413,961 members (77,112 online)
Click here to Skip to main content

Automate Photoshop

, 17 Jul 2006 CPOL
Rate this:
Please Sign up or sign in to vote.
How to automate Photoshop with VB.NET.

Introduction

You have a bunch of pictures, but they don't look that great. You'd like to increase contrast, or improve colors. Luckily, you have Adobe Photoshop CS2 with its wonderful Auto Contrast function. No problem if it's all about tens of pictures. What if there are hundreds, or even thousands? Open every picture in Photoshop, apply adjustments, save it... Oh, it is boring. Why not just automate all these tasks and let Photoshop work hard while we are lying on the beach?

Using the code

Let's do it in eight easy steps:

  1. Create a Windows Application project.
  2. Add a reference to the Photoshop Object Library.

  3. To use the Photoshop object in our application, import the Photoshop namespace:
    Imports Photoshop
  4. Declare the two objects we are going to work with (the Photoshop Application object and the Photoshop Document object):
    Dim appRef As Photoshop.Application
    Dim currentDoc As Photoshop.Document
  5. Now, we should define the folder containing our pictures and the folder for the improved pictures. Add two FolderBrowseDialog controls (input and output folders can be the same, the pictures will just be overwritten; however, it is not always such a good idea). Also, add the necessary TextBoxes and Button controls.

    Add Button controls to start the process and to finish the application.

  6. Open the Photoshop application when our form is loading. Set Photoshop as invisible (we still see it when it is starting, though).
    appRef = New ApplicationClass
    appRef.Visible = False
    appRef.DisplayDialogs = PsDialogModes.psDisplayNoDialogs
    appRef.PlaybackDisplayDialogs = PsDialogModes.psDisplayNoDialogs
  7. On the application exit event, don't forget to quit Photoshop as well.
    appRef.Quit()
  8. Finally, the last step - process every image in the folder.
    Dim files() As String = IO.Directory.GetFiles(txtFrom.Text, "*.jpg")
    For Each fl As String In files
       currentDoc = appRef.Open(fl)
       Dim currentLayer As Photoshop.ArtLayer = _
           CType(currentDoc.ActiveLayer, Photoshop.ArtLayer)
       currentLayer.AutoContrast()
       'currentLayer.AutoLevels()
       Dim jpeg As New Photoshop.JPEGSaveOptions
       jpeg.Quality = 8
       currentDoc.SaveAs(txtTo.Text + _
          IO.Path.GetFileName(fl), jpeg, False, 2)
       currentDoc.Close()
    Next

Enjoy your life, and when you are back, you will find all your pictures just perfect.

Points of interest

We applied only one Auto Contrast adjustment feature. Sure there is zillion possibilities in Photoshop to improve the image we could use in our application. Just do a research of the Photoshop Document object.

Photoshop has a feature called batch processing. It could be extremely useful in our automation process. However, for some unknown reason, I could not make it work.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

vadimas
Web Developer
Canada Canada
Lifelong software developer. From IBM mainframes to Microsoft .Net, and lots in between.
Born and raised in Vilnius, Lithuania. Today live in Toronto, Ontario. Tomorrow - who knows?

Comments and Discussions

 
Questionhow to add different version photoshop refernce at the same time [modified] Pin
Member 11468068, 25-Feb-15 4:30
professionalMember 1146806825-Feb-15 4:30 
AnswerRe: how to add different version photoshop refernce at the same time Pin
tamilpuyal_28, 16-Mar-15 6:57
membertamilpuyal_2816-Mar-15 6:57 
QuestionSet the ForeGround color or the BackGround color from a Drawing.Color Pin
Member 11131137, 12-Feb-15 11:50
memberMember 1113113712-Feb-15 11:50 
AnswerRe: Set the ForeGround color or the BackGround color from a Drawing.Color Pin
vadimas, 13-Feb-15 5:42
membervadimas13-Feb-15 5:42 
Questioncreateobject("Photoshop.Application") gives ActiveX error in VB Pin
solankinkdpr, 29-Jan-13 3:41
membersolankinkdpr29-Jan-13 3:41 
Questioninternal error in photoshop elements automation Pin
cooldj_007, 5-Nov-12 19:36
membercooldj_0075-Nov-12 19:36 
GeneralSet Photoshop as invisible when iam using it from vb.net Pin
krishnaramu, 10-Feb-11 2:17
memberkrishnaramu10-Feb-11 2:17 
GeneralRe: Set Photoshop as invisible when iam using it from vb.net Pin
tamilpuyal_28, 14-Apr-11 3:26
membertamilpuyal_2814-Apr-11 3:26 
GeneralMy vote of 5 Pin
Yogesh Babarao Shiraskar, 15-Jul-10 8:15
memberYogesh Babarao Shiraskar15-Jul-10 8:15 
GeneralPhotoshop like image editor with a drag and drop image gallery Pin
ikbegins, 2-Jun-10 0:34
memberikbegins2-Jun-10 0:34 
GeneralRe: Photoshop like image editor with a drag and drop image gallery Pin
tamilpuyal_28, 4-Jun-10 7:52
membertamilpuyal_284-Jun-10 7:52 
GeneralPhotoshop CS2 COM Object problems Pin
blaine landish, 10-Jun-09 10:40
memberblaine landish10-Jun-09 10:40 
GeneralRe: Photoshop CS2 COM Object problems Pin
vadimas, 10-Jun-09 11:34
membervadimas10-Jun-09 11:34 
QuestionHow to Handle Adjustment Dialog Boxes Pin
kamalraaja, 11-Apr-07 4:53
memberkamalraaja11-Apr-07 4:53 
Questionhow to undo and redo? Pin
kamalraaja, 21-Dec-06 21:14
memberkamalraaja21-Dec-06 21:14 
QuestionHow to change focus of Opened images in photoshop Pin
Samatha.S, 20-Dec-06 2:26
memberSamatha.S20-Dec-06 2:26 
Generaladd menu in photoshop by vb code Pin
farschadnaji, 17-Nov-06 6:58
memberfarschadnaji17-Nov-06 6:58 
QuestionHi.. Thanks for this great code Pin
chingyen, 23-Aug-06 23:26
memberchingyen23-Aug-06 23:26 
Questionwithout photoshop Pin
tomsmaily123, 2-Aug-06 21:55
membertomsmaily1232-Aug-06 21:55 
AnswerRe: without photoshop [modified] Pin
technomanceraus, 2-Aug-06 22:10
membertechnomanceraus2-Aug-06 22:10 
JokeRe: without photoshop [modified] Pin
Aviv23, 9-Aug-06 16:49
memberAviv239-Aug-06 16:49 
GeneralRe: without photoshop Pin
vadimas, 10-Aug-06 4:25
membervadimas10-Aug-06 4:25 
GeneralMuch better solution Pin
SAKryukov, 26-Jul-06 6:02
memberSAKryukov26-Jul-06 6:02 
GeneralDroplets Pin
Arkett, 25-Jul-06 23:21
memberArkett25-Jul-06 23:21 
GeneralRe: Droplets Pin
vadimas, 26-Jul-06 5:27
membervadimas26-Jul-06 5:27 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web02 | 2.8.150427.2 | Last Updated 17 Jul 2006
Article Copyright 2006 by vadimas
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid