Clase InlineShape (Word VBA)

La clase InlineShape representa un objeto en la capa de texto de un documento.

Los principales procedimientos de la clase InlineShape son Delete, Select, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPicture, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt y InlineShapes.AddWebVideo

Set

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

Dim ise as InlineShape
Set ise = ActiveDocument.Range.InlineShapes(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase InlineShape : Field.InlineShape, InlineShapes.Item, InlineShapes.AddPicture, InlineShapes.New, InlineShapes.Add3DModel, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt, InlineShapes.AddWebVideo, ListFormat.ListPictureBullet, ListLevel.ApplyPictureBullet, ListLevel.PictureBullet, Shape.ConvertToInlineShape, ShapeRange.ConvertToInlineShape, Document.InlineShapes, Range.InlineShapes y Selection.InlineShapes

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos InlineShape en una colección.

Dim ise As InlineShape
For Each ise In ActiveDocument.Range.InlineShapes
	
Next ise

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

Format with its procedures Borders, HorizontalLineFormat, LinkFormat, OLEFormat, ScaleHeight y ScaleWidth
Add with its procedures InlineShapes.Add3DModel, InlineShapes.AddChart2, InlineShapes.AddHorizontalLine, InlineShapes.AddHorizontalLineStandard, InlineShapes.AddOLEControl, InlineShapes.AddOLEObject, InlineShapes.AddPicture, InlineShapes.AddPictureBullet, InlineShapes.AddSmartArt y InlineShapes.AddWebVideo

Métodos

Los principales métodos de la clase InlineShape son

Delete - Elimina la forma entre líneas especificada.

ActiveDocument.Range.InlineShapes(1).Delete

Select - Selecciona la forma entre líneas especificada.

ActiveDocument.Range.InlineShapes(1).Select

Propiedades

AlternativeText Devuelve o establece una cadena que representa el texto alternativo asociado con una forma en una página web.

ActiveDocument.Range.InlineShapes(1).AlternativeText =

Chart Devuelve un objeto Chart que representa un gráfico dentro de la colección de formas en línea en un documento.

Dim chrChart As Chart
Set chrChart = ActiveDocument.Range.InlineShapes(1).Chart

Decorative

ActiveDocument.Range.InlineShapes(1).Decorative =

Field Devuelve un objeto Field que representa el campo asociado a la forma entre líneas especificada.

Dim fldField As Field
Set fldField = ActiveDocument.Range.InlineShapes(1).Field

Fill Devuelve un objeto FillFormat que contiene las propiedades de formato de relleno de la forma especificada.

Dim fftFill As FillFormat
Set fftFill = ActiveDocument.Range.InlineShapes(1).Fill

Glow Devuelve un objeto GlowFormat que indica las propiedades de formato de un efecto iluminado.

Dim gftGlow As GlowFormat
Set gftGlow = ActiveDocument.Range.InlineShapes(1).Glow

GraphicStyle

ActiveDocument.Range.InlineShapes(1).GraphicStyle =

GroupItems Devuelve una colección GroupShapes que representa las formas agrupadas para una forma entre líneas.

Dim gssGroupItems As GroupShapes
Set gssGroupItems = ActiveDocument.Range.InlineShapes(1).GroupItems

HasChart True si la forma especificada es un gráfico.

Dim mtsHasChart As Office.MsoTriState
mtsHasChart = ActiveDocument.Range.InlineShapes(1).HasChart

HasSmartArt Devuelve true si hay un diagrama de SmartArt presente en la forma.

Dim mtsHasSmartArt As Office.MsoTriState
mtsHasSmartArt = ActiveDocument.Range.InlineShapes(1).HasSmartArt

Height Devuelve o establece el alto de una forma entre líneas.

ActiveDocument.Range.InlineShapes(1).Height =

Hyperlink Devuelve un objeto HYPERLINK que representa el hipervínculo asociado con la forma entre líneas especificada.

Dim hypHyperlink As Hyperlink
Set hypHyperlink = ActiveDocument.Range.InlineShapes(1).Hyperlink

IsPictureBullet True indica que un objeto InlineShape es una viñeta de imagen.

Dim booIsPictureBullet As Boolean
booIsPictureBullet = ActiveDocument.Range.InlineShapes(1).IsPictureBullet

Line Devuelve un objeto LineFormat que contiene las propiedades de formato de línea de la forma especificada.

Dim lftLine As LineFormat
Set lftLine = ActiveDocument.Range.InlineShapes(1).Line

LockAspectRatio MsoTrue si la forma especificada mantiene sus proporciones originales cuando se cambia el tamaño.

ActiveDocument.Range.InlineShapes(1).LockAspectRatio =

Model3D

Dim mdfModel3D As Model3DFormat
Set mdfModel3D = ActiveDocument.Range.InlineShapes(1).Model3D

Parent Devuelve un objeto Object que representa el objeto primario del objeto InlineShape especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes(1).Parent

PictureFormat Devuelve un objeto PictureFormat que contiene las propiedades de la forma entre líneas del formato de imagen.

ActiveDocument.Range.InlineShapes(1).PictureFormat =

Range Devuelve un objeto Range que representa la parte de un documento incluida en una forma entre líneas.

Dim rngRange As Range
Set rngRange = ActiveDocument.Range.InlineShapes(1).Range

Reflection Devuelve un objeto ReflectionFormat que representa el formato de reflejo de una forma.

Dim rftReflection As ReflectionFormat
Set rftReflection = ActiveDocument.Range.InlineShapes(1).Reflection

Script Devuelve un objeto script , que representa un bloque de secuencias de comandos o código asociado con una imagen en la Página Web especificada.

Dim scrScript As Office.Script
scrScript = ActiveDocument.Range.InlineShapes(1).Script

Shadow Devuelve un objeto ShadowFormat que representa el formato de sombreado de la forma especificada.

Dim sftShadow As ShadowFormat
Set sftShadow = ActiveDocument.Range.InlineShapes(1).Shadow

SmartArt Devuelve un objeto SmartArt que proporciona una forma de trabajar con el SmartArt asociado a la forma entre líneas especificada.

Dim satSmartArt As Office.SmartArt
Set satSmartArt = ActiveDocument.Range.InlineShapes(1).SmartArt

SoftEdge Devuelve un objeto SoftEdgeFormat que representa el formato de borde suave de una forma.

Dim sefSoftEdge As SoftEdgeFormat
Set sefSoftEdge = ActiveDocument.Range.InlineShapes(1).SoftEdge

TextEffect Devuelve un objeto TextEffectFormat que contiene las propiedades de formato de efecto de texto de la forma entre líneas especificada.

ActiveDocument.Range.InlineShapes(1).TextEffect =

Title Devuelve o establece una cadena que contiene un título para la forma entre líneas especificada.

ActiveDocument.Range.InlineShapes(1).Title =

Type Devuelve el tipo de forma entre líneas.

Dim wisType As WdInlineShapeType
wisType = ActiveDocument.Range.InlineShapes(1).Type

Width Devuelve o establece el ancho, en puntos, de la forma entre líneas especificada.

ActiveDocument.Range.InlineShapes(1).Width =

InlineShapes.Count Devuelve un Long que representa el número de formas entre líneas de la colección.

Dim lngCount As Long
lngCount = ActiveDocument.Range.InlineShapes.Count

InlineShapes.Parent Devuelve un objeto Object que representa el objeto primario del objeto InlineShapes especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Range.InlineShapes.Parent