1

使用 PowerPoint 2007 和 2010，我已经尝试将 Shape 对象的渐变填充类型从默认的“矩形”更改为“路径”好几天了。在网上搜索，但似乎没有问过这样的问题。

到目前为止，我只能让渐变填充为“矩形”（默认为 2 色渐变？）。但我希望它是“路径”。到目前为止，只能通过右键单击实际形状-> 格式化形状来做到这一点。“格式形状”表单显示，我可以将“类型：”从矩形更改为路径。但是我想在 VBA 中进行这种更改，有人有解决方案吗？

我的代码如下。以 g 开头的变量是 As Single

Set oSlide = ActivePresentation.Windows(1).View.Slide
    With oSlide.Shapes.AddShape(msoShapeIsoscelesTriangle, gLeft, gTop, gWidth, gHeight)
        .Line.Visible = msoFalse ' No Outline
        .Adjustments(1) = gAdj1 ' Adjust the position of the pointing tip
        .Rotation = gAngle ' Change the angle of Rotation
        .Fill.Visible = msoTrue
        .Fill.TwoColorGradient msoGradientFromCenter, 1     ' Enable Two Colour Gradient
        .Fill.GradientStops(1).Color.RGB = RGB(255,255,255) ' Colour at center
        .Fill.GradientStops(2).Color.RGB = RGB(121,121,121) ' Colour at edge
        .Select
    End With
Set oSlide = Nothing

如果没有 VBA 代码可以实现这一点，我将不得不使用解决方法...从模板文件中复制并粘贴这些形状 - 这听起来很糟糕，因为我将其设为 PowerPoint 插件。

提前致谢！帕特里克

4

0 回答 0