Cómo: Agregar imágenes y dibujos de Word a documentos mediante programación

Se puede agregar imágenes y objetos de dibujo a los documentos en tiempo de diseño o en tiempo de ejecución.WordArt le permite agregar texto decorativo a documentos de Microsoft Office Word.Estos efectos de texto especiales son objetos de dibujo que se pueden personalizar e insertar en el documento.

Se aplica a: La información de este tema se aplica a los proyectos de nivel de documento y los proyectos de nivel de aplicación para Word 2013 y Word 2010. Para obtener más información, vea Características disponibles por aplicación y tipo de proyecto de Office.

Agregar una imagen en tiempo de diseño

Si está desarrollando una personalización de nivel de documento, puede agregar una imagen al documento en tiempo de diseño.

Para agregar una imagen a un documento de Word en tiempo de diseño

Coloque el cursor donde desee insertar la imagen en el documento.
Haga clic en la ficha Insertar de la cinta de opciones.
En el grupo Ilustraciones, haga clic en Imagen.
En el cuadro de diálogo Insertar imagen, navegue a la imagen que desea insertar y haga clic en Insertar.

La imagen se agrega al documento en la ubicación del cursor actual.

Agregar una imagen en tiempo de ejecución

Puede insertar una imagen en un documento en la ubicación actual del cursor.

Para agregar una imagen en la ubicación del cursor

Llame al método AddPicture de la colección InlineShapes y pase el nombre del archivo.

Me.Application.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")

this.Application.Selection.InlineShapes.AddPicture(@"C:\SamplePicture.jpg");

Agregar WordArt en tiempo de diseño

Si está desarrollando una personalización de nivel de documento, puede agregar WordArt al documento en tiempo de diseño.

Para agregar WordArt a un documento de Word en tiempo de diseño

Coloque el cursor donde desee insertar WordArt en el documento.
Haga clic en la ficha Insertar de la cinta de opciones.
En el grupo Texto, haga clic en WordArt y, a continuación, seleccione un estilo WordArt.
Agregue el texto que desea que aparezca en el documento al cuadro de diálogo Modificar texto de WordArt y haga clic en Aceptar.

El texto se agrega al documento con el estilo de WordArt seleccionado ya aplicado.

Agregar WordArt en tiempo de ejecución

Puede insertar WordArt en un documento en la ubicación actual del cursor.El procedimiento es diferente para las personalizaciones de nivel de documento y para los complementos de nivel de aplicación.

Para agregar WordArt en la ubicación del cursor en una personalización de nivel de documento

Obtenga las posiciones superior e izquierda de la ubicación del cursor actual.

Dim leftPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdHorizontalPositionRelativeToPage)

Dim topPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdVerticalPositionRelativeToPage)

float leftPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdHorizontalPositionRelativeToPage];

float topPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdVerticalPositionRelativeToPage];

Llame al método AddTextEffect del objeto Shapes en el documento.

Me.Shapes.AddTextEffect( _
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
    "Arial Black", 24, _
    Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse, _
    leftPosition, topPosition)

this.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
    "Arial Black", 24, Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse,
    leftPosition, topPosition);

Para agregar WordArt en la ubicación del cursor en un complemento de nivel de aplicación

Obtenga las posiciones superior e izquierda de la ubicación del cursor actual.

Dim leftPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdHorizontalPositionRelativeToPage)

Dim topPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdVerticalPositionRelativeToPage)

float leftPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdHorizontalPositionRelativeToPage];

float topPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdVerticalPositionRelativeToPage];

Llame al método AddTextEffect del objeto Shapes del documento activo (o el documento que especifique).

Me.Application.ActiveDocument.Shapes.AddTextEffect( _
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
    "Arial Black", 24, Office.MsoTriState.msoFalse, _
    Office.MsoTriState.msoFalse, leftPosition, topPosition)

this.Application.ActiveDocument.Shapes.AddTextEffect(
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
    "Arial Black", 24, Office.MsoTriState.msoFalse, 
    Office.MsoTriState.msoFalse, leftPosition, topPosition);