Clase CalloutFormat (PowerPoint VBA)

Contiene propiedades y métodos que se pueden aplicar a llamadas con línea.

Set

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

Dim cft as CalloutFormat
Set cft = ActiveWindow.RangeFromPoint.Callout

Los siguientes procedimientos se pueden usar para establecer variables de clase CalloutFormat : Shape.Callout y ShapeRange.Callout

Propiedades

Accent Determina si una barra de énfasis vertical separa el texto de la línea de la llamada. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(2).Accent = msoTrue

Angle Devuelve o establece el ángulo de la línea de la llamada. Si esta línea contiene más de un segmento de línea, la propiedad devuelve o establece el ángulo del segmento que esté más alejado del cuadro de texto de la llamada. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(2).Callout.Angle = msoCalloutAngleMixed

AutoAttach Determina si cambia el punto donde la línea de la llamada se une con el cuadro de texto de la llamada, en función de si el origen de la línea de la llamada (hacia donde señala) se encuentra a la izquierda o a la derecha del cuadro de texto de la llamada. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(2).Callout.AutoAttach = msoTrue

AutoLength Determina si el primer segmento de la llamada conserva la longitud fija especificada por la propiedad length o si se aplica una escala automáticamente, siempre que se mueva la llamada. Solo lectura.

Dim mtsAutoLength As Office.MsoTriState
mtsAutoLength = ActivePresentation.Slides(1).Shapes(2).Callout.AutoLength

Border Determina si el texto de la llamada especificada está rodeado por un borde. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(2).Callout.Border = msoTrue

Drop Para llamadas con un valor de línea de unión establecido explícitamente, esta propiedad devuelve la distancia vertical, en puntos, desde el lado del cuadro de límite del texto hasta el lugar donde la línea de la llamada se une al cuadro de texto. Solo lectura.

Dim sngDrop As Single
sngDrop = ActivePresentation.Slides(1).Shapes(2).Callout.Drop

DropType Devuelve un valor que indica dónde se conecta la línea de la llamada al cuadro de texto. Solo lectura.

Dim mcdDropType As Office.MsoCalloutDropType
mcdDropType = ActivePresentation.Slides(1).Shapes(2).Callout.DropType

Gap Devuelve o establece la distancia horizontal (en puntos) entre el final de la línea de la llamada y el cuadro de límite del texto. Lectura y escritura.

ActivePresentation.Slides(1).Shapes(2).Callout.Gap = 3

Length Cuando la propiedad AutoLength de la llamada especificada se establece en false, la propiedad length devuelve la longitud (en puntos) del primer segmento de la línea de llamada (el segmento unido al cuadro de texto de la llamada). Solo lectura.

Dim sngLength As Single
sngLength = ActivePresentation.Slides(1).Shapes(2).Callout.Length

Parent Devuelve el objeto primario del objeto especificado.

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

Type Representa el tipo de llamada. Lectura y escritura.

ActiveWindow.RangeFromPoint.Callout.Type = msoCalloutMixed