| Вопрос: Photoshop и VB | Добавлено: 26.03.07 07:20 |
Автор вопроса:  Vedis70
|
|
Задача в один текстовый слой вывести соббщение шрифтом 9 и 12 размера, но команда Size устанавливает размер на весь слой а через макросы шрифт меняется, но нет возможности вводить разный текст. Подскажите можно ли выйти из этой ситуации. Исходник примерно такой.
Dim DocPh As Photoshop.Document Dim mLayer As Photoshop.ArtLayer Dim mText As Photoshop.TextItem Set ph = Photoshop.Application Set DocPh = ph.Open("D:\А092ОХ.psd") For CountX = 1 To DocPh.ArtLayers.Count If DocPh.ArtLayers(CountX).Kind = psTextLayer Then Set mText = DocPh.ArtLayers(CountX).TextItem mText.Contents = "Привет " mText.Size = 9 mText.Contents = mText.Contents + " ВСЕМ " mText.Size = 12 End If Next CountX Unload Me End Sub |
| Ответы | Всего ответов: 0 |
Страница: