Метод CalloutFormat.CustomDrop (Word)

Статья
04/07/2023

Задает вертикальное расстояние (в точках) от края текстового ограничивающего поля до места, где строка выноски присоединяется к текстовому поле.

Синтаксис

expression. CustomDrop (Drop)

выражение (обязательно). Переменная, представляющая объект CalloutFormat.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Drop	Обязательный	Single	Расстояние падения в точках.

Замечания

Это расстояние измеряется от верхней части текстового поля, если для свойства AutoAttach не задано значение True , а текстовое поле не находится слева от начала строки выноски (место, на которое указывает выноска). В этом случае расстояние от падения измеряется от нижней части текстового поля.

Если метод PresetDrop ранее использовался для установки удаления для указанной выноски, используйте следующую инструкцию перед использованием метода CustomDrop , чтобы пользовательский параметр перетаскивания начал действовать.

PresetDrop msoCalloutDropCustom

Пример

В этом примере отменяется любое предустановленное перетаскивание, заданное для первой фигуры в активном документе, настраиваемое расстояние от перетаскивания устанавливается в 14 точек и указывается, что расстояние от падения всегда измеряется сверху. Чтобы пример работал, первой фигурой должна быть выноска.

Dim docActive As Document 
 
Set docActive = ActiveDocument

With docActive.Shapes(1).Callout 
 .PresetDrop msoCalloutDropCustom 
 .CustomDrop 14 
 .AutoAttach = False 
End With

См. также

Объект CalloutFormat

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

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

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