AI智能回答msoShapeLineCallout4BorderandAccentBar

ning84

没有做不到的，只有想不到的。

1. Sub SetSmartArtLineStyle()
   
2.     Dim oSALayout As SmartArtLayout
   
3.     Dim oSA As SmartArt
   
4.     Dim oNode As SmartArtNode
   
5. 
   
6.     ' 假设已经存在一个名为"MySmartArt"的SmartArt对象
   
7.     Set oSA = ActivePresentation.Slides(1).Shapes("MySmartArt")
   
8. 
   
9.     ' 设置SmartArt的边框样式为msoShapeLineCallout4BorderandAccentBar
   
10.     oSA.Line.Weight = 2  ' 设置线条粗细
    
11.     oSA.Line.DashStyle = msoLineSolid  ' 设置线条样式为实线
    
12.     oSA.Line.Style = msoShapeLineCallout4BorderandAccentBar  ' 设置线条样式为msoShapeLineCallout4BorderandAccentBar
    
13.     oSA.Line.ForeColor.RGB = RGB(255, 0, 0)  ' 设置线条颜色为红色
    
14. End Sub

复制代码

ning84

VBA实战技巧34：使用VBA组织图形1  https://mp.weixin.qq.com/s?__biz=MzA3NTMzMjMyOA==&mid=2650926895&idx=1&sn=9ea71406753a34d846529c9d1ddf2a32&chksm=848760a8b3f0e9be1fd9c7f507fc0f630df4604d681f2b4d049f8a9d827dfebe0e0ec08171b9&scene=27