用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格式

回答

相关问题