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

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

Синтаксис

выражение. 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 и обратная связь.