CorelDraw VBA在CQL中使用变量

Question

伙计们我试图在我的CQL查询中使用变量

如果我使用以下内容，它将按预期工作，并选择所有具有相同cmyk颜色的对象

ActivePage.Shapes.FindShapes(Query:="@fill.color = cmyk(100,0,0,0)").CreateSelection

我想使用数组中的变量，该变量将找到一个对象的颜色并选择其他所有具有相同颜色的对象

我尝试了以下

 Dim a, b, c, d
 a = 100
 b = 0
 c = 0
 d = 0
 ActivePage.Shapes.FindShapes(Query:="@fill.color = cmyk(a,b,c,d)").CreateSelection

当我这样做时，出现以下错误

标识符“ a”不是全局成员

任何想法发生了什么

任何帮助表示赞赏

标记

Answer 1

看来，这的答案是转义字符串，并将值连接到查询中。

从评论，这应该工作：

ActivePage.Shapes.FindShapes(Query:="@fill.color = cmyk(" & a & "," & b & "," & c & "," & d & ")").CreateSelection