Creating OLE Automation for Photoshop in VB

This is a loaded question. How do I create a VB application that automates a bunch of Actions in Photoshop? The answer has to do with OLE Automation. That's about all I know. Please help!!!
LVL 2
hobsterAsked:
Who is Participating?
 
ylarvorConnect With a Mentor Commented:
if you want more information, send a mail to ylarvor@mygale.org

*****************************************************
Create an OLE SERVER and use SendKey to command an App

****************************************************

                              Exe: MyProject
                              Form: MyForm
                              Control Command1: MyButton

MyProject:Declaration

Dim ServerOLE as object

Sub MyForm_Load()
Set ServerOLE = CreateObject("MyActiveX.MyClass")
End Sub

Sub MyButton_Click()
' Open an application before give orders
' result = Shell("c:\windows\Notepad.exe", 3)

ServeurOLE.option1

End Sub


                              ActiveX EXE: MyActiveX
                              Class: MyClass


Public Sub option1()
' File / Open / Filename = Fichier.txt
SendKeys "%{F}", True
SendKeys "O", True
SendKeys "Fichier.txt"
End Sub

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.