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

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

但是似乎没有获得线条颜色的选项(Forecolor)

有什么想法吗？

Answer 1

剖面线填充

形状的图案填充是一个HatchFill对象。它有一个BackColor和一个或多个Patterns()。

每个图案具有具有可由例如ToString或其它methods读取以读取颜色的Color的Outline (指定图案中的线)。

如果要更改影线填充线的其他属性，请参阅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