vba - 使用 vba 创建 powerpoint 形状

Question

我正在尝试创建一个 VBA，它创建一个没有边框的绿色向上箭头。目前 VBA 正在创建一个带有黑色边框的绿色箭头。谁能帮我解决这个问题？我的代码如下。我尝试了 shp.Line.Fill.ForeColor.RGB = RGB(137, 143, 75) 并且仍然得到黑色轮廓。

提前致谢。

Sub Up_Arrow()     
    Dim i As Integer     
    Dim shp As Shape     
    Dim sld As Slide

    Set sld = Application.ActiveWindow.View.Slide
    Set shp = sld.Shapes.AddShape(35, 10, 10, 5.0399, 8.6399)    
    shp.Fill.ForeColor.RGB = RGB(137, 143, 75)      
    shp.Fill.BackColor.RGB = RGB(137, 143, 75)              
End Sub

更新：可能不是最复杂的方法，但以下代码行有效。

shp.Line.ForeColor.RGB = RGB(137, 143, 75)

Answer 1

您可以通过这种方式使线不可见：

shp.Line.Visible = MsoFalse

Answer 2

shp.Line.Visible = msoFalse

是你需要的。

其实可以通过录制宏来获取需要的代码：）