Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.

Dismiss

Can't change Guides' color

2 views

Skip to first unread message

Kostya

unread,

Sep 10, 2004, 12:20:01 AM9/10/04

to corel.graphic_apps.draw-script

Seems it's bug. I tried two ways to change color of guidelines but no one was
working.

Sub probe()
Dim sc As New CorelDRAW.Color

' below one way which is working but only when Object Manager is visible.
ActivePage.Layers("Guides").OverrideColor = True
ActivePage.Layers("Guides").Color.CMYKAssign 100, 100, 0, 0

' below the second way which should be working but it's absolutely don't
'ActiveDocument.MasterPage.Layers("Guides").OverrideColor = True
'ActiveDocument.MasterPage.Layers("Guides").Color.CMYKAssign 0, 100, 100, 0

' test code
Set sc = ActiveDocument.MasterPage.Layers("Guides").Color
Debug.Print sc.CMYKCyan; sc.CMYKMagenta; sc.CMYKYellow; sc.CMYKBlack

End Sub

0 new messages