| davemen@hotmail.com 2005-05-27, 7:15 pm |
| What's wrong with this code? I keep getting an error and can't figure
it out.
Public Function changeText(mytext As String)
Dim descriptor As IActionDescriptor
Dim descriptor2 As IActionDescriptor
Dim reference As IActionReference
Dim result As IActionDescriptor
' create the descriptor and reference objects
Set descriptor = PSApp.MakeDescriptor
Set descriptor2 = PSApp.MakeDescriptor
Set reference = PSApp.MakeReference
'*********************************select the layer********
reference.PutName phClassLayer, "Cool Tools"
descriptor.PutReference phClassNull, reference
gControl.Play phEventSelect, descriptor, 1
'******************************************************
reference.PutEnumerated phClassTextLayer, phTypeOrdinal,
phEnumTarget
descriptor.PutReference phKeyNull, reference
'****************************************************************************
'Mytext is the text passed into the function -
******************************
'****************************************************************************
descriptor.PutString phKeyText, mytext
descriptor2.PutObject phKey_Source, phClassTextLayer, descriptor
gControl.Play phEventSet, descriptor, 1
End Function
|