3

境界線のない緑色の上向き矢印を作成する 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)

4

2 に答える 2

2 
shp.Line.Visible = msoFalse

必要なものです。

実際、マクロを記録することで必要なコードを取得できます:)

于 2013-09-26T06:16:47.607 に答える
2

この方法で線を非表示にすることができます：

shp.Line.Visible = MsoFalse
于 2013-09-25T22:10:16.353 に答える