vba - CorelDraw VBA 填充颜色

Question

有人知道如何从自定义填充填充中获取背景和线条颜色吗？

以下代码使用文本框中的数据填充选定的形状

      ActiveSelectionRange.ApplyCustomHatchFill ANG.value, LS.value, 0, 0, 0, LT.value, CreateRGBColor(255, 0, 0), BackColor:=CreateRGBColor(255, 255, 255)

这工作正常，我还有一个颜色选择器，可以更改线条和背景的颜色，这很好，但是如果更改线条大小，颜色会变回上面代码中指定的颜色

我需要获取的是所选形状中线条的当前颜色和背景色，以便我可以在保留设置颜色的同时更改线条粗细

我有一种感觉，它与 GET patternfill.backcolor 有关，但我找不到任何有关其用法的示例

感谢任何帮助

标记

更新

好的，我发现以下内容将背景颜色转换为字符串

值 = s.Fill.Hatch.BackColor.ToString

然后我可以进行拆分并获取值

但似乎没有获取线条颜色(前景色)的选项

有什么想法吗？

Answer 1

填充剖面线

形状的剖面线填充是 HatchFill目的。它有一个 BackColor 和一个或多个 Patterns()。
每个图案都有一个Outline(指定图案中的线条)，它有一个可以由e读取的Color。 G。 ToString 或其他 methods读取颜色。

如果您想更改填充线的其他属性，请参阅Outline here 的所有属性和方法。

一些例子:

s.Fill.Hatch.BackColor                  ' background color
s.Fill.Hatch.Patterns(1).Outline.Color  ' line color of first pattern
s.Fill.Hatch.Patterns(1).Outline.Width  ' line width of first pattern

您还可以检查它是否确实具有不透明背景:Fill.Hatch.HasBackground

图案填充

以防万一:图案填充更简单并且只有两种颜色:

s.Fill.Pattern.FrontColor
s.Fill.Pattern.BackColor