Свойство CalloutFormat.AutoAttach (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. Автоматическое присоединение

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

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

MsoTriState

Замечания

Значение свойства AutoAttach может быть одной из констант MsoTriState , объявленных в библиотеке типов Microsoft Office.

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

Если это свойство имеет значение msoFalse, значение удаления всегда измеряется в верхней части текстового поля, независимо от относительных позиций текстового поля и источника. Используйте метод CustomDrop , чтобы задать значение drop, и используйте свойство Drop для возврата значения drop.

Задание этого свойства влияет на выноску только в том случае, если в ней явно задано значение drop, то есть если значение свойства DropType равно msoCalloutDropCustom. По умолчанию выноски явно задают значения удаления при их создании.

Пример

В этом примере на первую страницу добавляются две выноски. Одна из выносок автоматически присоединяется, а другая — нет. При изменении источника строки выноски для автоматически присоединенной выноски справа от вложенного текстового поля положение текстового поля изменится. Выноска, которая не присоединена автоматически, не отображает это поведение.

With ActivePublication.Pages(1).Shapes 
 With .AddCallout(Type:=msoCalloutTwo, _ 
 Left:=420, Top:=170, Width:=200, Height:=50) 
 .TextFrame.TextRange.Text = "auto-attached" 
 .Callout.AutoAttach = msoTrue 
 End With 
 With .AddCallout(Type:=msoCalloutTwo, _ 
 Left:=420, Top:=350, Width:=200, Height:=50) 
 .TextFrame.TextRange.Text = "not auto-attached" 
 .Callout.AutoAttach = msoFalse 
 End With 
End With

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

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

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