Написал Sancho в 12/02/2009 22:48:05
Sub colorManag_Sancho()
On Error Resume Next
ColorManager.LoadStyle "Sancho"
Palettes.Open (LanguagePath & "\Custom Data\coreldrw.cpl")
Palettes.Item("Default RGB palette").Close
End Sub
Sub colorManag_Web()
On Error Resume Next
ColorManager.LoadStyle "Optimized for the Web"
Palettes.Open (LanguagePath & "\Custom Data\corelpnt.cpl")
Palettes.Item("Default CMYK palette").Close
End Sub
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=95527