Метод Shapes.AddCallout (PowerPoint)

Статья
04/07/2023

Создает выноску строки без границ. Возвращает объект Shape , представляющий новую выноску.

Синтаксис

выражение. AddCallout( _Type_, _Left_, _Top_, _Width_, _Height_ )

выражение: переменная, представляющая объект Shapes.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	MsoCalloutType	Тип строки выноски.
Left	Обязательный	Single	Позиция, измеряемая в точках, левого края ограничивающего прямоугольника выноски относительно левого края слайда.
Top	Обязательный	Single	Позиция верхнего края ограничивающего прямоугольника выноски по отношению к верхнему краю слайда, измеряемая в точках.
Width	Обязательный	Single	Ширина ограничивающего прямоугольника выноски, измеряемая в точках.
Height	Обязательный	Single	Высота ограничивающего прямоугольника выноски, измеряемая в точках.

Возвращаемое значение

Shape

Примечания

Вы можете вставить большее количество выносок с помощью метода AddShape .

Пример

В этом примере добавляется выноска без границ с свободно вращающейся односементной линией выноски в myDocument, а затем устанавливается угол выноски в 30 градусов.

Sub NewCallout() 
    Dim sldOne As Slide 
    Set sldOne = ActivePresentation.Slides(1) 
    sldOne.Shapes.AddCallout(Type:=msoCalloutTwo, Left:=50, Top:=50, _ 
        Width:=200, Height:=100).Callout.Angle = msoCalloutAngle30 
End Sub

См. также

Объект Shapes

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через