Coreldraw选择所有颜色的CMYK

Question

伙计们，我试图在当前的选择中选择某一种颜色的所有颜色

我使用以下方法找出所选颜色中的所有颜色

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，USER,0,84,80,100,000000000-0000-0000-0000-00000000000

我需要提取第二个和第六个逗号之间的四个数字，这样我就有了cmyk颜色，然后我就可以用它来查找形状了。

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

有什么主意吗？

感谢你的任何帮助

标记

Answer 1

正如@RCL所提到的，Split是一个本地的VBA函数。试试下面的示例：

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