Сделайте наоборот. В макросе екзеля заведите объект ФШ и через нормальный интерфейс запуска экшна - запускайте экшн.
Скриптинг ФШ понимает и VBA, что позволяет интегрировать в макросы команды полученные из ScriptListener'a - ну все эти чудесные стеко-забивалки как у вас в цитате.
Нашел пример в старинных проектах:
|
Код:
|
Public Sub psFillLayerByType(fillType As psFillBkgFrgColors)
Dim objApp As New Photoshop.Application
Dim desc11 As New Photoshop.ActionDescriptor
Call desc11.PutEnumerated(objApp.CharIDToTypeID("Usng"), _
objApp.CharIDToTypeID("FlCn"), fillType)
Call objApp.ExecuteAction(objApp.CharIDToTypeID("Fl "), desc11, 3)
End Sub |