Copiar Imagenes

hola, !

Tengo en un libro unas imagenes que he copiado de las predisenadas de Office.
La cosa es que no he podido copiarlas a un nuevo libro por VBA.
He intentado por el grabador de macros ver como se realiza la operacion, pero no deja ningun registro.
Estoy utilizando Office 2007...

insertar imagenes desde la galeria en 2007 es +/- lo mismo que insertar pictures (sabiendo cual es el archivo) p.e.

ActiveSheet.Pictures.Insert "C:\Archivos de programa\Office 2007\Media\CAGCat10\j0149627.wmf"

si tienes instalada la galeria de imagenes de versiones anteriores de office, tambien puedes utilizarla

lo que no es muy claro, es si deseas insertar imagenes nuevas por codigo... o copiar/mover unas ya existentes -?-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Hola Hector Miguel:

Gracias por tu respuesta. Ya logre copiar una imagen que tengo en un libro
a otra. El problema actual es que lo puedo pegar en una celda pero necesito
moverlo un poco por ejemplo hacia la derecha, como puedo realizar esta
operación?.

Gracias,

Bart

holam, !

... Ya logre copiar una imagen que tengo en un libro a otra.
El problema actual es que lo puedo pegar en una celda pero necesito moverlo un poco por ejemplo hacia la derecha
como puedo realizar esta operacion?.

el siguiente ejemplo copia el picture(1) de la hoja1 a la hoja2 y (en la hoja2) lo mueve a la posicion de la celda B5

Sub Copia_mueve_imagen()
Worksheets("hoja1").Pictures(1).Copy
With Worksheets("hoja2")
.Paste
With .Pictures(1)
.Left = Parent.Range("b5").Left
.Top = .Parent.Range("b5").Top
End With
End With
End Sub

saludos,
hector.