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

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

Синтаксис

выражение. BoundLeft

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

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

Одинарное с плавающей точкой

Пример

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

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