Свойство TextRange.BoundTop (PowerPoint)

Статья
04/07/2023

Возвращает расстояние (в точках) от верхней части текстового ограничивающего поля для указанного текстового фрейма до верхней части слайда. Только для чтения.

Синтаксис

выражение. BoundTop

Выражение Переменная, представляющая объект 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

См. также

Объект TextRange

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

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

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