Terminar macro

Hola, Alexander.

Después de insertada la imagen, te va a ser un tanto difícil, pues tendrías
que averiguar el nombre o índice de la imagen que acabas de insertar, y eso
te complicaría bastante el problema. La operación que necesitas la debes
hacer al momento de insertar la imagen. ¿Cómo? Utiliza el comando With al
insertar la imagen, y luego especificas todas las propiedades que necesites.
Cuando cierres End With, éstas quedarán aplicadas a la nueva imagen. Piensa
en algo como esto:

With ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, _
FileName:= "[Ruta + nombre y extensión de tu archivo", _
LinkToFile:=False, SaveWithDocument:=True)

.WrapFormat.Type = 3
.ZOrder 5

End With

Las propiedades WrapFormat.Type y ZOrder son las que hacen precisamente que
la imagen quede detrás del texto. Si necesitas alguna otra, puedes
seleccionar una imagen cualquiera, hechas a andar la grabadora de macros y
aplicas las propiedades que necesites. Luego, las copias y las pegas entre
las instrucciones With y End With que te muestro arriba.

Espero que esto te sirva. Saludos...

Cordialmente,


"Jhon Alexander" escribió:

Hola, desarrolle una macro para que me inserte un imagen desde archivo,
necesito saber que comando debo de utilizar para que después de insertada la
imagen esta me la ponga detrás del texto.
Alex

El código expuesto anteriormente funciona en Office 2003, y suponiendo que
Word inserta imágenes en forma predeterminada en línea con el texto
(Herramientas - Opciones - Edición - Insertar o pegar imágenes como), y
también suponiendo que el código se ejecuta en vista Diseño de impresión.

En caso que no funcione, el siguiente código es más seguro:

'Se cambia el modo de insersión de imágenes
Dim Imagen As String
Options.PictureWrapType = wdWrapMergeTight

'Se inserta la imagen y se captura el nombre de la misma.
With ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _
"G:\Documents and Settings\dgarcia\Mis documentos\Mis
imágenes\buho54.gif" _
, LinkToFile:=False, SaveWithDocument:=True)
Imagen = .Name
End With

'Se restituye el modo de insersión de imágenes
Options.PictureWrapType = wdWrapMergeInline

'Se coloca la imagen detrás del texto.
With ActiveDocument.Shapes(Imagen)
.WrapFormat.Type = 3
.ZOrder 5
End With



"David" escribió:

Hola, Alexander.

Después de insertada la imagen, te va a ser un tanto difícil, pues tendrías
que averiguar el nombre o índice de la imagen que acabas de insertar, y eso
te complicaría bastante el problema. La operación que necesitas la debes
hacer al momento de insertar la imagen. ¿Cómo? Utiliza el comando With al
insertar la imagen, y luego especificas todas las propiedades que necesites.
Cuando cierres End With, éstas quedarán aplicadas a la nueva imagen. Piensa
en algo como esto:

With ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, _
FileName:= "[Ruta + nombre y extensión de tu archivo", _
LinkToFile:=False, SaveWithDocument:=True)

.WrapFormat.Type = 3
.ZOrder 5

End With

Las propiedades WrapFormat.Type y ZOrder son las que hacen precisamente que
la imagen quede detrás del texto. Si necesitas alguna otra, puedes
seleccionar una imagen cualquiera, hechas a andar la grabadora de macros y
aplicas las propiedades que necesites. Luego, las copias y las pegas entre
las instrucciones With y End With que te muestro arriba.

Espero que esto te sirva. Saludos...

Cordialmente,


"Jhon Alexander" escribió:

> Hola, desarrolle una macro para que me inserte un imagen desde archivo,
> necesito saber que comando debo de utilizar para que después de insertada la
> imagen esta me la ponga detrás del texto.
> Alex