cdrvba转cmyk外扩边

weixin_pdh334

已于 2024-04-27 00:51:10 修改

阅读量448

点赞数 13

文章标签：人工智能计算机视觉神经网络

于 2024-04-25 13:05:48 首次发布

本文链接：https://blog.csdn.net/weixin_48686601/article/details/138186264

版权

对所选对象进行转换为cmyk色值

Dim s As Shape
Dim sr As ShapeRange
Dim c As Double, m As Double, y As Double, k As Double
Dim eff1 As Effect
Set sr = ActiveSelectionRange
ActiveDocument.Unit = cdrMillimeter
For Each s In sr
If s.Fill.Type = cdrNoFill Then MsgBox "没有填充的图案"

If s.Fill.Type = cdrNoFill Then Exit Sub

s.Fill.UniformColor.ConvertToCMYK
c = s.Fill.UniformColor.CMYKCyan
m = s.Fill.UniformColor.CMYKMagenta
y = s.Fill.UniformColor.CMYKYellow
k = s.Fill.UniformColor.CMYKBlack
s.Outline.Color.ConvertToCMYK
s.Outline.SetProperties Color:=CreateCMYKColor(c, m, y, k)
Set eff = s.CreateContour(cdrContourOutside, TextBox1.Text, , , CreateCMYKColor(c, m, y, k), CreateCMYKColor(c, m, y, k))

's.Effects.ContourEffect.Contour.ContourGroup.AddToSelection
' ActiveSelection.Separate
's.Delete
Next s