UC知道用VBA如何将coredraw里的所有黑色线条改成红色
来源：百度知道 编辑：UC知道 时间：2024/05/28 08:39:29
用VBA如何将coredraw里的所有黑色线条改成红色
我是这么写的但不对，关键是颜色判断和赋值那两句不知怎么实现
Sub aaaa()
Dim sh As Shape
For Each sh In ActiveLayer.Shapes
If sh.outline.color=rgb(0,0,0) Then
sh.outline.color=rgb(255,0,0)
End If
Next sh
End Sub
我是这么写的但不对，关键是颜色判断和赋值那两句不知怎么实现
Sub aaaa()
Dim sh As Shape
For Each sh In ActiveLayer.Shapes
If sh.outline.color=rgb(0,0,0) Then
sh.outline.color=rgb(255,0,0)
End If
Next sh
End Sub
你好我现在用coredraw的VBA模块，你说的这个可以通过查找，设置曲线的属性，整体替换，不过关于VBA我倒是有个问题想问题一下你，就是coredraw下某一图层的文字在VBA怎么表示，我有下面的一段程序有点问题，麻烦你帮我看一下，提示“庄45”不识别？
Sub font()
' Recorded 2010/11/23
ActiveLayer.Shapes("庄45").CreateSelection
ActiveSelection.Fill.UniformColor.CMYKAssign 100, 100, 0, 0
ActiveSelection.Outline.SetProperties Color:=CreateCMYKColor(100, 100, 0, 0)
End Sub
可惜啊，我技术不全面，只会VBA不会coredraw，如果我们配合一下也许就能搞定了。