раскрасить плиты

[vl]

подскажите, как покрасить названия plates
имеется:
хочется с как-то через .StringAssign

Sub NumberPlates()     
Dim strPlates As String   
Dim Plate As SeparationPlate   
Dim intPlateCounter As Integer     

ActiveDocument.Unit = cdrMillimeter        
With ActiveDocument.PrintSettings.Separations      
For intPlateCounter = 1 To .Plates.Count        
If .Plates(intPlateCounter).Enabled = True Then            
strPlates = strPlates & .Plates(intPlateCounter).Color & vbCr               
End If       
Next intPlateCounter  
Set inf = ActiveLayer.CreateArtisticText(0, -5, strPlates, , , "Arial", 8, cdrTrue, 0, , cdrLeftAlignment)      
End With    
End Sub

 

[dizzy]

Ответ: раскрасить плиты

Хм.. проблема не простая... В своем новом макросе channels, кой презентую в самое ближайшее время, мне пришлось создать базу всех возможных спотовых цветов. Ну а для обычных (Циан, Маджента...) создавал условие (типа если циан - то красим в циан).

Макрос channels создает панельку всех каналов в документе. С возможностью отключения каждого, для того чтобы посмотреть документ в сепарации. Если Вы пишете что-то подобное - то советую дождаться релиза.

Хотя.. Скорее Вы пишете некий спусковерст... Если так, то могу дать кусок кода, кой состовляет базу спотовых красок... В личку...

 

[vl]

Ответ: раскрасить плиты

Макрос channels создает панельку всех каналов в документе.

...лучше день подождать...
Задачи похожие -- разобраться с каналами в епсах, в битняках &so on

 

[dizzy]

Ответ: раскрасить плиты

Ну тогда подождите.. Не долго ждать...