Clase TextFrame2 (PowerPoint VBA)

La clase TextFrame2 representa el marco de texto en un objeto Shape o ShapeRange. Contiene el texto del marco de texto y expone las propiedades y los métodos que controlan la alineación y la delimitación del marco de texto.

Set

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

Dim tf2 as TextFrame2
Set tf2 = ActiveWindow.RangeFromPoint.TextFrame2

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

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Format with its procedures PathFormat, WarpFormat y WordArtFormat

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).TextFrame2.AutoSize = msoAutoSizeMixed

Column Devuelve el objeto Column que representa las columnas del marco de texto especificado. Solo lectura.

Dim tc2Column As Office.TextColumn2
Set tc2Column = ActivePresentation.Slides(1).Shapes(1).TextFrame2.Column

HasText Indica si la forma que contiene el marco de texto especificado tiene texto asociado. Solo lectura.

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

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

ActivePresentation.Slides(1).Shapes(1).TextFrame2.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).TextFrame2.MarginBottom = 6

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).TextFrame2.MarginLeft = 6

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).TextFrame2.MarginRight = 6

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).TextFrame2.MarginTop = 6

NoTextRotation Indica si se va a girar el texto con el giro de TextFrame2 . Una de las constantes MsoTriState. Lectura y escritura.

ActiveWindow.RangeFromPoint.TextFrame2.NoTextRotation = msoTrue

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

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

Parent Devuelve el objeto primario del marco de texto especificado. Solo lectura.

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

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

Dim rlrRuler As Office.Ruler2
Set rlrRuler = ActivePresentation.Slides(1).Shapes(1).TextFrame2.Ruler

TextRange Devuelve un objeto TextRange2 (PowerPoint) que representa el texto del marco de texto especificado. Solo lectura.

Dim tr2TextRange As Office.TextRange2
Set tr2TextRange = ActivePresentation.Slides(1).Shapes(1).TextFrame2.TextRange

ThreeD Devuelve un objeto ThreeDFormat que representa el formato tridimensional de la forma primaria. Solo lectura.

Dim tdfThreeD As ThreeDFormat
Set tdfThreeD = ActiveWindow.RangeFromPoint.TextFrame2.ThreeD

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

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

WordWrap Determina si las líneas de interrupción de texto se ajustan automáticamente en la forma. Lectura y escritura.

ActiveWindow.RangeFromPoint.TextFrame2.WordWrap = msoTrue