Coreldraw VBA select 所有颜色 CMYK

Question

伙计们，我正在尝试 select 当前 selection

中特定颜色的所有颜色

我使用以下方法找出 selection

中的所有颜色

Dim s As Shape
Dim value As String, os As ShapeRange
Set os = ActiveSelectionRange
If os.Count < 1 Then MsgBox ("Nothing selected!"): Exit Sub
For Each s In os
value = s.Fill.UniformColor.ToString
MsgBox (value)
Next s

问题是字符串的值如下

CMYK,用户,0,84,80,100,000000000-0000-0000-0000-00000000000

我需要提取第 2 个和第 6 个逗号之间的 4 位数字，这样我就有了 cmyk 颜色，然后我可以使用它来查找形状

我一直在 VB 中寻找有关字符串操作的想法，但它们似乎适用于 excel 而不是 coreldraw

有什么想法吗？？

感谢任何帮助

马克

Answer 1

Split 是本机 VBA 函数，如@RCL 所述。试试下面的例子：

Sub Test()

    Dim s As Shape
    Dim value As String
    Dim os As ShapeRange
    Dim tmp

    Set os = ActiveSelectionRange
    If os.Count < 1 Then MsgBox ("Nothing selected!"): Exit Sub
    For Each s In os
        value = s.Fill.UniformColor.ToString
        tmp = Split(value, ",")
        MsgBox tmp(2) & vbCrLf & tmp(3) & vbCrLf & tmp(4) & vbCrLf & tmp(5)
    Next s

End Sub

Coreldraw VBA select 所有颜色 CMYK

Coreldraw VBA select all colour CMYK

vba

string

colors

selection

coreldraw