Свойство TextRange.BoundHeight (PowerPoint)
Возвращает высоту (в точках) ограничивающего текстового поля для указанного текстового кадра. Только для чтения.
Синтаксис
выражение. BoundHeight
Выражение Переменная, представляющая объект TextRange .
Возвращаемое значение
Одинарное
Пример
В этом примере добавляется прямоугольник с округлением для слайда в активной презентации. Прямоугольник имеет те же размеры, что и текстовое ограничивающее поле для фигуры 1.
With Application.ActivePresentation.Slides(1).Shapes
Set tr = .Item(1).TextFrame.TextRange
Set roundRect = .AddShape(msoShapeRoundedRectangle, _
tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With
With roundRect.Fill
.ForeColor.RGB = RGB(255, 0, 128)
.Transparency = 0.75
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по