Propiedad TextRange.BoundTop (PowerPoint)

Devuelve la distancia (en puntos) desde el borde superior del cuadro de límite de texto para el marco de texto especificado hasta el borde superior de la diapositiva. Solo lectura.

Sintaxis

expresión. BoundTop

Expresión Variable que representa un objeto TextRange .

Valor devuelto

Simple

Ejemplo:

Este ejemplo agrega un rectángulo redondeado a la diapositiva número uno de la presentación activa. El rectángulo tiene las mismas dimensiones que el cuadro de límite de texto de la forma número uno.

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

Consulte también

Objeto TextRange

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.