官网CalloutFormat.AutoAttach语句为什么不通过？

ning84

按官网给出的示例，为什么不通过。



不明白这条语句会出错？

1. Sub lllll()
   
2. Set myDocument = Application.ActiveSheet
   
3. With myDocument.Shapes
   
4.     With .AddCallout(msoCalloutTwo, 420, 170, 200, 50)
   
5.         .TextFrame.Characters.Text = "auto-attached"
   
6.         .Callout.AutoAttach = True
   
7.     End With
   
8.     With .AddCallout(msoCalloutTwo, 420, 350, 200, 50)
   
9.         .TextFrame.Characters.Text = "not auto-attached"
   
10.         .Callout.AutoAttach = False
    
11.     End With
    
12. End With
    
13. End Sub

复制代码

CalloutFormat.AutoAttach 属性 (Excel) | Microsoft Learn  https://learn.microsoft.com/zh-c ... utformat.autoattach

如果标注线附加到标注文本框的位置会根据标注线起点（即标注所指位置）在标注文本框的左右位置的变化而变化，则该属性值为 True。 读/写 [color=var(--theme-hyperlink)]MsoTriState。

语法

表达式。AutoAttach

表达 一个代表 [color=var(--theme-hyperlink)]CalloutFormat 对象的变量。

备注

当此属性的值为 True 时，放置值 (从标注文本框边缘到标注线附加位置的垂直距离) 当文本框位于原点的右侧时从文本框顶部测量，当文本框位于原点的左侧时，从文本框底部测量。

如果本属性的值为 False，那么不管标注文本框与标注线起点的相对位置怎样，标注的落差值都从标注文本框的顶边开始计算。 使用 [color=var(--theme-hyperlink)]CustomDrop 方法来设置垂直距离，并使用 [color=var(--theme-hyperlink)]删除 属性返回垂直距离。

仅当标注具有显式设置的 drop 值（即 [color=var(--theme-hyperlink)]DropType 属性的值为 [color=var(--theme-hyperlink)]msoCalloutDropCustom 时），设置此属性才影响标注。 创建标注时默认为具有显式垂直距离设置。

示例

本示例向 myDocument 中添加了两个标注。 如果将这两个标注的文本框拖到其起点的左边，那么只有自动调整连接点的标注才会改变标注线与文本框的连接点。

[backcolor=var(--theme-code-header)][size=0.8]VB复制[color=var(--theme-success-invert) !important][backcolor=var(--theme-success-base) !important][size=1.125]

Set myDocument = Worksheets(1) With myDocument.Shapes     With .AddCallout(msoCalloutTwo, 420, 170, 200, 50)         .TextFrame.Characters.Text = "auto-attached"         .Callout.AutoAttach = True     End With     With .AddCallout(msoCalloutTwo, 420, 350, 200, 50)         .TextFrame.Characters.Text = "not auto-attached"         .Callout.AutoAttach = False     End With End With

ning84

1. Sub ll()
   
2.    Dim Shp As Shape, Shps As Shapes
   
3.        Set Shps = Application.ActivePresentation.Slides(1).Shapes
   
4.        For ii = 2 To Shps.Count
   
5.             Set Shp = Shps(ii)
   
6.             With Shp
   
7.                   Debug.Print ii, .Type, .AutoShapeType,
   
8.                   With .Callout
   
9.                        Debug.Print .Angle, .AutoAttach, .AutoLength
   
10.                        'Debug.Print .Type
    
11.                   End With
    
12.             End With
    
13.        Next ii
    
14. End Sub

复制代码

没人教，自己瞎琢磨，看起来省了学费，结果就是过不去。




2             2             113           5             0             0
3             2             113           5             0             0
4             2             113           5             0             0
5             2             113           4             0             0
6             2             113           4             0             0
7             2             113           4             0             0
8             2             113           5             0             0
9             2             113           5             0             0
10            2             113           4             0             0
11            2             113           4             0             0
12            2             113           2             0             0
13            2             113           3             0             0
14            2             113           5             0             0
15            2             113           2             0             0
16            2             113           2             0             0
17            2             113           3             0             0
18            2             113           5             0             0
19            2             113           5             0             0
20            2             113           4             0             0
21            2             113           4             0             0
22            2             113           5             0             0