学习Shape.Callout 属性

ning84

Shape.Callout 属性 (PowerPoint) | Microsoft Learn  https://learn.microsoft.com/zh-c ... Point.Shape.Callout

1. Sub ddddd()
   
2.    Dim Shp As Shape, Shps As Shapes
   
3.        Set Shps = Application.ActivePresentation.Slides(3).Shapes
   
4.        For ii = Shps.Count To 1 Step -1
   
5.             Set Shp = Shps(ii)
   
6.             Shp.Delete
   
7.        Next ii
   
8.        Set Shp = Shps.AddCallout(msoCalloutOne, 100, 100, 100, 30)
   
9.     Dim C As CalloutFormat
   
10.        Set C = Shp.Callout
    
11.        With C
    
12.             .Angle = msoCalloutAngle45
    
13.             Stop
    
14.             .Angle = msoCalloutAngle30
    
15.             Stop
    
16.        End With
    
17. End Sub
    

复制代码

ning84

CalloutFormat 对象 (Excel) | Microsoft Learn  https://learn.microsoft.com/zh-c ... excel.calloutformat

方法

• [color=var(--theme-hyperlink)]AutomaticLength
• [color=var(--theme-primary-hover)]CustomDrop
• [color=var(--theme-hyperlink)]CustomLength
• [color=var(--theme-hyperlink)]PresetDrop
  

属性

• [color=var(--theme-hyperlink)]Accent
• [color=var(--theme-hyperlink)]角度
• [color=var(--theme-hyperlink)]应用程序
• [color=var(--theme-hyperlink)]AutoAttach
• [color=var(--theme-hyperlink)]AutoLength
• [color=var(--theme-hyperlink)]Border
• [color=var(--theme-hyperlink)]Creator
• [color=var(--theme-hyperlink)]Drop
• [color=var(--theme-hyperlink)]DropType
• [color=var(--theme-hyperlink)]间隙
• [color=var(--theme-hyperlink)]长度
• [color=var(--theme-hyperlink)]Parent
• [color=var(--theme-hyperlink)]Type
  

CalloutFormat.Accent 属性 (PowerPoint)


CalloutFormat.Accent 属性 (PowerPoint) | Microsoft Learn  https://learn.microsoft.com/zh-c ... alloutformat.accent

ning84

1. Sub ddddd()
   
2.    Dim Shp As Shape, Shps As Shapes
   
3.        Set Shps = Application.ActivePresentation.Slides(3).Shapes
   
4.        For ii = Shps.Count To 1 Step -1
   
5.             Set Shp = Shps(ii)
   
6.             Shp.Delete
   
7.        Next ii
   
8.        Set Shp = Shps.AddShape(msoShapeOval, 100, 200, 10, 10)
   
9.        With Shp
   
10.             .Fill.Transparency = 1
    
11.             With .Line
    
12.                 .Transparency = 0
    
13.                 .Weight = 0.3
    
14.             End With
    
15.        End With
    
16.        Set Shp = Shps.AddCallout(msoCalloutOne, 100, 100, 100, 30)
    
17.        With Shp
    
18.             .Fill.Transparency = 1
    
19.             With .Line
    
20.                 .Transparency = 0
    
21.                 .Weight = 0.3
    
22.             End With
    
23.        End With
    
24.     Dim oCall As CalloutFormat
    
25.        Set oCall = Shp.Callout
    
26.        With oCall
    
27.             .Angle = msoCalloutAngle45
    
28.             .Accent = msoFalse
    
29.             .CustomLength 200
    
30.             .PresetDrop msoCalloutDropTop
    
31.             .Gap = 0
    
32.             .Border = msoTrue
    
33.        End With
    
34. End Sub

复制代码

没有实现目标需求。