用vba創建PowerPoint格式

我正在嘗試創建一個VBA，它創建一個沒有邊框的綠色向上箭頭。目前VBA正在創建一個帶有黑色邊框的綠色箭頭。任何人都可以幫我解決這個問題嗎？我的代碼如下。我試過shp.Line.Fill.ForeColor.RGB = RGB（137,143,75），並且仍然是黑色輪廓。用vba創建PowerPoint格式

在此先感謝。

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）

來源

2013-09-25 Edward Armstrong

需要將邊框厚度改爲0 – enderland

shp.Line.Visible = msoFalse

是你所需要的。

事實上，可以獲得由錄製宏:)

來源

2013-09-26 06:16:47 sam092

shp.Line.ForeColor.RGB = RGB（89，0，0） –

所需的代碼是的，那將是微軟在2007版本中放出Powerpoint的宏觀記錄器，讓我們通過一個胡佛大壩值得關注的非結構化博客，並猜測如何使用大腦彎曲新主題來確定如何格式化VBA創建的對象系統。（這是我如何偶然找到這個答案。）你的主要答案是有用的（因此我的upvote），但你的擱置評論可悲已成爲「如果只是這樣容易...... –

可以使線條無形這樣：

shp.Line.Visible = MsoFalse

來源

2013-09-25 22:10:16 ZebraOnWheels

用vba創建PowerPoint格式

回答

相關問題