Не работает StrokeColor.

[TAlex]

Пишу:
Set myInDesign = CreateObject("InDesign.Application.CS")
Set myPub = myInDesign.ActiveDocument

Set myLinks = myPub.Links

' перебор линков в публикации
For i = 1 To myLinks.Count
Set curLink = myLinks.Item(i)
Set curRect = curLink.Parent.Parent

If curLink.LinkType = "TIFF" Then
If curRect.StrokeColor = "None" Then
curRect.StrokeColor = "black"
curRect.StrokeWeight = 0.5
numStroke = numStroke + 1
End If
End If

Next i

Строка StrokeColor НЕ РАБОТАЕТ!!!!!

 

[vbatushev]

Ответ: Не работает StrokeColor.

Просто у тебя нет такого цвета: "black". Возможно, ты имеешь в виду цвет "[Black]". Или укажи его, как myPub.Colors.Item(3).

 

[TAlex]

Ответ: Не работает StrokeColor.

Просто у тебя нет такого цвета: "black". Возможно, ты имеешь в виду цвет "[Black]". Или укажи его, как myPub.Colors.Item(3).

Да уже как угодно указывал и через Swatch, и новый цвет "111" делал и его назначал - не получается.

Вот только что попробовал myPub.Colors.Item(3) - НЕТУ АУТЛАЙНА!!!

А у тебя работает? Пришли кусочек кода.

 

[vbatushev]

Ответ: Не работает StrokeColor.

Вот это у меня работает:

Set myInDesign = CreateObject("InDesign.Application.CS")
Set myPub = myInDesign.ActiveDocument

Set myLinks = myPub.Links

' перебор линков в публикации
For i = 1 To myLinks.Count
Set curLink = myLinks.Item(i)
Set curRect = curLink.Parent.Parent

If curLink.LinkType = "TIFF" Then
If curRect.StrokeColor = "None" Then
curRect.StrokeColor = myPub.Colors.Item("Black")
curRect.StrokeWeight = 0.5
numStroke = numStroke + 1
End If
End If

Next i

 

[TAlex]

Ответ: Не работает StrokeColor.

Спасибо.
Получилось.