Clase TextFrame (PowerPoint VBA)

La clase TextFrame representa el marco de texto en un objeto Shape. Contiene el texto en el marco de texto y las propiedades y métodos que controlan la alineación y la fijación del marco de texto.

Set

Para usar una variable de clase TextFrame, primero debe ser instanciado, por ejemplo

Dim tfe as TextFrame
Set tfe = ActiveWindow.RangeFromPoint.TextFrame

Los siguientes procedimientos se pueden usar para establecer variables de clase TextFrame : Shape.TextFrame, ShapeRange.TextFrame y TextStyle.TextFrame

Propiedades

AutoSize Devuelve o establece un valor que indica si el tamaño de la forma especificada se ajusta automáticamente a los límites. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.AutoSize = ppAutoSizeMixed

HasText Devuelve si la forma especificada tiene texto asociado. Solo lectura.

Dim mtsHasText As Office.MsoTriState
mtsHasText = ActivePresentation.Slides(1).Shapes(1).TextFrame.HasText

HorizontalAnchor Devuelve o establece la alineación horizontal del texto en un marco de texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.HorizontalAnchor = msoHorizontalAnchorMixed

MarginBottom Devuelve o establece la distancia (en puntos) entre la parte inferior del marco de texto y la parte inferior del rectángulo inscrito de la forma que contiene el texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginBottom = 5

MarginLeft Devuelve o establece la distancia (en puntos) entre el borde izquierdo del marco de texto y el borde izquierdo del rectángulo inscrito de la forma que contiene el texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginLeft = 5

MarginRight Devuelve o establece la distancia (en puntos) entre el borde derecho del marco de texto y el borde derecho del rectángulo inscrito de la forma que contiene el texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginRight = 5

MarginTop Devuelve o establece la distancia (en puntos) entre la parte superior del marco de texto y la parte superior del rectángulo inscrito de la forma que contiene el texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.MarginTop = 5

Orientation Devuelve o establece la orientación del texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.Orientation = msoTextOrientationMixed

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.TextFrame.Parent

Ruler Devuelve un objeto Ruler que representa la regla del texto especificado. Solo lectura.

Dim rlrRuler As Ruler
Set rlrRuler = ActivePresentation.Slides(1).Shapes(1).TextFrame.Ruler

TextRange Devuelve un objeto TextRange que representa el texto del marco de texto especificado. Solo lectura.

Dim treTextRange As TextRange
Set treTextRange = ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange

VerticalAnchor Devuelve o establece la alineación vertical del texto en un marco de texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(1).TextFrame.VerticalAnchor = msoVerticalAnchorMixed

WordWrap Determina si las líneas se ajustan automáticamente en la forma. Lectura y escritura.

ActiveWindow.RangeFromPoint.TextFrame.WordWrap = msoTrue