фотошоп из-под индиза

[pavel_t]

скрипт на бейсике

не получается кусок, в котором фотошоп должен открыть епс с нужными настройками, склеить и потом сохранить его в тиф с нужными настройками.

пока только это хоть как-то работает, но открывает в ргб и 72 дпи:

Photoshop.Application.Open (fold + MyName + ".eps")
Photoshop.Application.ActiveDocument.Flatten

вопрос: как указать ему параметры растрирования епса

 

[Kuzmin]

Ответ: фотошоп из-под индиза

Примерно так:

Set myEPSOpenOptions = CreateObject( "Photoshop.EPSOpenOptions" )

myEPSOpenOptions.Height = [COLOR=DarkRed]величина_в_текущих_ед._измерения[/COLOR]
myEPSOpenOptions.Width = [COLOR=DarkRed]величина_в_текущих_ед._измерения[/COLOR]
myEPSOpenOptions.Resolution = 300

Photoshop.Application.Open (fold + MyName + ".eps", myEPSOpenOptions)

Кроме размеров и разрешения есть и другие опции. В документации по скриптам это есть.

 

[pavel_t]

Ответ: фотошоп из-под индиза

примерно так и представлял...
только вот на эту строку сразу ругается..

Photoshop.Application.Open (fold + MyName + ".eps",myEPSOpenOptions)

как параметры указать теперь понятно... но как его заставить их применить...

 

[Kuzmin]

Ответ: фотошоп из-под индиза

А так?

Photoshop.Application.Open (fold + MyName + ".eps", [COLOR=DarkRed]As[/COLOR] myEPSOpenOptions)

 

[pavel_t]

Ответ: фотошоп из-под индиза

тоже. ругается на любое слово после запятой.

 

[pavel_t]

Ответ: фотошоп из-под индиза

вот так надо:
Photoshop.Application.Open (fold + MyName + ".eps"), myEPSOpenOptions

 

[pavel_t]

Ответ: фотошоп из-под индиза

этот кусок выглядит так:

Set myEPSOpenOptions = CreateObject("Photoshop.EPSOpenOptions")
With myEPSOpenOptions
.Resolution = 300
.Mode = 3
.AntiAlias = False
End With

Photoshop.Application.Open (fold + MyName + ".eps"), myEPSOpenOptions
Photoshop.Application.ActiveDocument.Flatten

Set myTifSaveOptions = CreateObject("Photoshop.TiffSaveOptions")
With myTifSaveOptions
.EmbedColorProfile = False
.ImageCompression = 2
End With

Photoshop.Application.ActiveDocument.SaveAs (fold + MyName + ".tif"), myTifSaveOptions
Kill (fold + MyName + ".eps")

Вопрос: как сделать окно фотошопа активным?