学习Shape.Callout

ning84

Shape.Callout 属性 (Publisher) | Microsoft Learn  https://learn.microsoft.com/zh-c ... isher.shape.callout

1. Sub NewShapeItem()
   
2. 
   
3. Dim shpNew As Shapes
   
4. 
   
5. Set shpNew = Application.ActiveDocument.MasterPages(1).Shapes
   
6. With shpNew
   
7. .AddShape Type:=msoShapeOval, Left:=180, _
   
8. Top:=200, Width:=280, Height:=130
   
9. With .AddCallout(Type:=msoCalloutTwo, Left:=420, _
   
10. Top:=170, Width:=170, Height:=40)
    
11. .TextFrame.TextRange = "Big Oval"
    
12. With .Callout
    
13. .Accent = msoTrue
    
14. .Border = msoFalse
    
15. End With
    
16. End With
    
17. End With
    
18. 
    
19. End Sub

复制代码

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

[color=var(--theme-hyperlink)]Accent	用户可放置垂直的强调线以将标注文字与标注线分开。
[color=var(--theme-hyperlink)]Angle	返回或设置标注线的角度。
[color=var(--theme-hyperlink)]Application	返回一个 [color=var(--theme-hyperlink)]Application 对象，该对象代表 Microsoft Excel 应用程序。
[color=var(--theme-hyperlink)]AutoAttach	如果标注线附加到标注文本框的位置会根据标注线起点（即标注所指位置）在标注文本框的左右位置的变化而变化，则该属性值为 True。
[color=var(--theme-hyperlink)]AutoLength	只应用于其线条由多个段组成的标注（msoCalloutThree 和 msoCalloutFour 类型）。
[color=var(--theme-hyperlink)]Border	表示对象的边框的可见性选项。
[color=var(--theme-hyperlink)]Creator	返回一个 32 位整数，该整数指示在其中创建了此对象的应用程序。
[color=var(--theme-hyperlink)]Drop	对于具有显式设置的放置值的标注，返回从文本边界框边缘到标注线附加到文本框的位置) 的垂直距离 (以磅为单位。
[color=var(--theme-hyperlink)]DropType	返回一个值，该值指示标注线与标注文本框的连接位置。
[color=var(--theme-hyperlink)]Gap	返回或设置标注线终点和文本边界框之间的水平距离 (以磅为单位)。
[color=var(--theme-hyperlink)]Length	[color=var(--theme-hyperlink)]AutoLength当指定标注的 属性设置为 False 时， (附加到文本标注框的段) ，返回标注线第一段) 的长度 (以磅为单位。
[color=var(--theme-hyperlink)]Parent	返回指定对象的父对象。
[color=var(--theme-hyperlink)]Type	返回或设置标注格式类型。

方法
[size=0.875em]展开表

[color=var(--theme-hyperlink)]AutomaticLength()	指定在移动标注时，自动调整的第一段 (附加到文本标注框的线段) 在标注线。
[color=var(--theme-hyperlink)]CustomDrop(Single)	设置缘的文本边界框到标注线与文本框的连接位置的垂直距离 (以磅为单位)。
[color=var(--theme-hyperlink)]CustomLength(Single)	指定标注线的第一段 (附加到文本标注框的段，) 每当移动标注时保留固定长度。
[color=var(--theme-hyperlink)]PresetDrop(MsoCalloutDropType)	表示标注线是连接在标注文本框的顶端、底端还是中心，或者表示标注线是连接在距标注文本框的顶端有一定距离的位置上，还是距底端有一定距离的位置上。

1. Sub AddFormatCallout()
   
2. With ActiveDocument.Pages(1).Shapes.AddCallout(Type:=msoCalloutOne, _
   
3. Left:=150, Top:=150, Width:=200, Height:=100)
   
4. With .TextFrame.TextRange
   
5. .Text = "This is a callout."
   
6. With .Font
   
7. .Name = "Stencil"
   
8. .Bold = msoTrue
   
9. .Size = 30
   
10. End With
    
11. End With
    
12. With .Callout
    
13. .Accent = MsoTrue
    
14. .Angle = msoCalloutAngle30
    
15. .Border = MsoFalse
    
16. .PresetDrop msoCalloutDropTop
    
17. .Type = msoCalloutThree
    
18. End With
    
19. End With
    
20. End Sub

复制代码

ning84

跳转至主内容
我们使用可选的 Cookie，通过社交媒体连接等方式改善你在我们网站上的体验，并且根据你的在线活动投放个性化的广告。 如果你拒绝可选 Cookie，则我们将仅使用为你提供服务所必须的 Cookie。 你可以单击页面底部的“管理 Cookie”更改你的选择。隐私声明 第三方 Cookie接受 拒绝 管理 Cookie

Learn

登录
消除警报
本文原文为英文，已针对你所在市场进行了翻译。 你对所用语言的质量的满意度如何？

请告诉我们
Learn  VBA
CalloutFormat 对象 (PowerPoint)
项目
2023/04/07
6 个参与者

反馈
本文内容
示例
另请参阅
包含应用于线形标注的属性和方法。

示例
使用 标注 属性返回一个 CalloutFormat 对象。 以下示例指定了 myDocument 上第三个形状（线形标注）的以下属性：

用垂直强调线将标注的文本和标注线分开。

标注线和标注文本边框的夹角为 30 度。

标注文本周围没有边框。

标注线连接到标注文本框的顶端。

标注线由两段组成。

为使此示例正常运行，第三个形状必须是标注。

VB

复制
Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Callout

    .Accent = True

    .Angle = msoCalloutAngle30

    .Border = False

    .PresetDrop msoCalloutDropTop

    .Type = msoCalloutThree

End With

ning84

MsoAutoShapeType 枚举 (Office) | Microsoft Learn  https://learn.microsoft.com/zh-c ... ce.msoautoshapetype



[td]

名称	值	Description
msoShape10pointStar	149	10 磅星
msoShape12pointStar	150	12 磅星
msoShape16pointStar	94	16 磅星
msoShape24pointStar	95	24 磅星
msoShape32pointStar	96	32 磅星
msoShape4pointStar	91	4 磅星
msoShape5pointStar	92	5 磅星
msoShape6pointStar	147	6 磅星
msoShape7pointStar	148	7 磅星
msoShape8pointStar	93	8 磅星
msoShapeActionButtonBackorPrevious	129	“后退”或“上一个”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonBeginning	131	“开始”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonCustom	125	不带默认图片或文本的按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonDocument	134	“文档”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonEnd	132	“结束”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonForwardorNext	130	“前进”或“下一个”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHelp	127	帮助按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonHome	126	“主页”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonInformation	128	“信息”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonMovie	136	“影片”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonReturn	133	“返回”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeActionButtonSound	135	“声音”按钮。 支持鼠标单击和鼠标移过操作。
msoShapeArc	25	弧
msoShapeBalloon	137	气球
msoShapeBentArrow	41	带 90 度圆角的箭头。
msoShapeBentUpArrow	44	带 90 度直角的箭头。 默认情况下上指。
msoShapeBevel	15	棱台效果
msoShapeBlockArc	20	块弧
msoShapeCan	13	可以
msoShapeChartPlus	182	正方形垂直和水平分为四个季度
msoShapeChartStar	181	正方形沿垂直线和对角线分为六个部分
msoShapeChartX	180	正方形沿对角线分为四部分
msoShapeChevron	52	雪 佛 龙
msoShapeChord	161	圆圈，用一条线连接两个点的外围通过圆的内部;带和弦的圆
msoShapeCircularArrow	60	曲线 180 度角后面的方块箭头
msoShapeCloud	179	云形状
msoShapeCloudCallout	108	云标注
msoShapeCorner	162	带矩形孔的矩形。
msoShapeCornerTabs	169	沿矩形路径对齐的四个右三角形;四个“被砍”的角落。
msoShapeCross	11	十字形
msoShapeCube	14	立方体
msoShapeCurvedDownArrow	48	向下弯曲的方块箭头
msoShapeCurvedDownRibbon	100	向下弯曲的功能区横幅
msoShapeCurvedLeftArrow	46	向左弯曲的方块箭头
msoShapeCurvedRightArrow	45	向右弯曲的方块箭头
msoShapeCurvedUpArrow	47	向上弯曲的方块箭头
msoShapeCurvedUpRibbon	99	向上弯曲的功能区横幅
msoShapeDecagon	144	Decagon
msoShapeDiagonalStripe	141	删除了两个三角形形状的矩形;对角线
msoShapeDiamond	4	菱形
msoShapeDodecagon	146	Dodecagon
msoShapeDonut	18	甜甜 圈
msoShapeDoubleBrace	27	双大括号
msoShapeDoubleBracket	26	双括号
msoShapeDoubleWave	104	双波
msoShapeDownArrow	36	向下指向的块箭头
msoShapeDownArrowCallout	56	带有向下箭头的标注
msoShapeDownRibbon	98	功能区下中心区域位于功能区末端的功能区横幅
msoShapeExplosion1	89	Explosion
msoShapeExplosion2	90	Explosion
msoShapeFlowchartAlternateProcess	62	备用流程图符号
msoShapeFlowchartCard	75	卡片流程图符号
msoShapeFlowchartCollate	79	排序规则流程图符号
msoShapeFlowchartConnector	73	连接器流程图符号
msoShapeFlowchartData	64	数据流程图符号
msoShapeFlowchartDecision	63	决策流程图符号
msoShapeFlowchartDelay	84	延迟流程图符号
msoShapeFlowchartDirectAccessStorage	87	直接访问存储流程图符号
msoShapeFlowchartDisplay	88	显示流程图符号
msoShapeFlowchartDocument	67	文档流程图符号
msoShapeFlowchartExtract	81	提取流程图符号
msoShapeFlowchartInternalStorage	66	内部存储流程图符号
msoShapeFlowchartMagneticDisk	86	磁盘流程图符号
Sub Lll()    Dim Sht As Worksheet        Set Sht = Sheet6           Dim Rng As Range        Dim ii, jj, Kk As Integer    Dim Arr        Arr = msoShapeAutoTypeArr    Dim Shp As Shape, ShpRng As ShapeRange    Dim GroupStart As Integer, GroupEnd    ''    Dim Ll, Tt, Ww, Hh, Lll        Ww = 200        Hh = 100        For ii = Sht.Shapes.Count To 1 Step -1            Set Shp = Sht.Shapes(ii)            Shp.Delete        Next ii        ''        Lll = 10        Tt = 10        GroupStart = 1        For ii = GroupStart To 183 Step 4           GroupEnd = GroupStart + 3           With Sht               Lll = Ll               For jj = GroupStart To GroupEnd                                       Set Shp = .Shapes.AddTextbox(msoTextOrientationHorizontal, Ll, Tt, Ww, Hh)                    Kk = Kk + 1                    If Kk > 183 Then                        Exit For                    End If                    Ll = Ll + Ww * 1.5                    Debug.Print ii, jj, Kk, Arr(Kk)(1), Arr(Kk)(2), Arr(Kk)(3)                    Select Case Arr(Kk)(2)                        Case -2, 138 ', 103                            'Stop                        Case Else                          Shp.AutoShapeType = Arr(Kk)(0)                          With Shp                              .Fill.Visible = msoFalse                              With .Line                                   .Visible = msoCTrue                                   .Weight = 1                                   .ForeColor.RGB = RGB(0, 0, 0)                              End With                              '.TextFrame2.TextRange.Text = Arr(ii)(3)                              With .TextEffect                                  .FontSize = 8                                  .FontBold = -msoCTrue                                  .Alignment = msoTextEffectAlignmentCentered                                  .Text = Arr(ii)(3) & vbCr & Arr(ii)(2) & vbCr & Arr(ii)(1)                              End With                          End With                    End Select               Next jj               Ll = Lll          End With          '''          Tt = Tt + Hh * 1.5        Next ii End Sub 复制代码

ning84

CalloutFormat 对象 (PowerPoint) | Microsoft Learn  https://learn.microsoft.com/zh-c ... point.calloutformat
CalloutFormat 对象 (PowerPoint)
项目
2023/04/07
6 个参与者
本文内容
示例
另请参阅
包含应用于线形标注的属性和方法。

示例
使用 标注 属性返回一个 CalloutFormat 对象。 以下示例指定了 myDocument 上第三个形状（线形标注）的以下属性：

用垂直强调线将标注的文本和标注线分开。

标注线和标注文本边框的夹角为 30 度。

标注文本周围没有边框。

标注线连接到标注文本框的顶端。

标注线由两段组成。

为使此示例正常运行，第三个形状必须是标注。

VB

复制
Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes(3).Callout

    .Accent = True

    .Angle = msoCalloutAngle30

    .Border = False

    .PresetDrop msoCalloutDropTop

    .Type = msoCalloutThree

End With

1. Sub ll()
   
2.    Dim Shp As Shape, Shps As Shapes
   
3.        Set Shps = Application.ActivePresentation.Slides(1).Shapes
   
4.        For ii = 1 To Shps.Count
   
5.             Set Shp = Shps(ii)
   
6.             With Shp
   
7.                   Debug.Print .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
    

复制代码