Powerpoint VBA Font.fill 无法获取 FillFormat 对象警告类型不匹配

Question

我有一个子来调整单个形状颜色属性，接收一个 Fillformat 对象来调整透明度和 rgb 颜色。代码在 shape.fill 中运行良好，但是当它运行到 textrange.font.fill 时，编译器警告“类型不匹配”。

我尝试调暗一个空的 fillformat 对象并将 font.fill 设置为它，但它仍然警告“类型不匹配”。 代码

我想知道原因或解决办法。

Answer 1

您应该将

txtFillFormat

定义为

Long

:

Dim txtFillFormat as Long
...
With aShape.TextFrame2.textRange.Font.Fill
   Debug.Print .BackColor
End WIth