[英]Create powerpoint shape with vba
我正在尝试创建一个VBA,该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)
您可以通过以下方式使线不可见:
shp.Line.Visible = MsoFalse
shp.Line.Visible = msoFalse
是您所需要的。
实际上,您可以通过记录宏来获取所需的代码:)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.