Insertar foto desde macro vía excel a word
Hola amigos del foro. Otra vez preguntando
Tengo una foto que ya esta insertada en un control picture de un formulario excel y deseo pasar esa misma foto a un documento word mediante un botón de comando. "Imprimir Formulario" junto con otros datos. Posiciono estos mediante marcadores de Word.
Todo bien cuando salvo que no puedo hacer los mismo con las fotos:
'Definimos wdDoc como objeto
Dim wdDoc As Object
'La definimos como documento Word
Set wdDoc = CreateObject("Word.Application")
ruta = ActiveWorkbook.Path 'Ruta donde se encuentra la hoja
ruta_actualizada = ruta & "\Fotos\" & strArchivo 'A la ruta donde se encuentra la hoja le 'añade la de fotos
'Copio el documento plantilla en otro donde depositare los datos
docu_origen = ruta & "\Formulario.doc"
docu_destino = ruta & "\Formulario1.doc"
FileCopy docu_origen, docu_destino
'Habro el documento
wdDoc.Documents.Open docu_destino
'Comienzo a enviar los datos
wdDoc.ActiveDocument.Bookmarks("vacante").Range.Text = txtVacanteNumero.Value
wdDoc.ActiveDocument.Bookmarks("CicloLectivo").Range.Text = txtCicloLectivo.Value
wdDoc.ActiveDocument.Bookmarks("ApellidoNombre").Range.Text =TxtApellidoNombre.Value
Trato de hacer lo mismo con la imagen
'NombreCurso es la ruta y nombre de la imagen en el disco, dato que tomo de otra rutina 'donde selecciono la imagen
If nombrecurso <> "" Then
ActiveSheet.Shapes(nombrecurso).Select
Selection.ShapeRange.Height = 120
Selection.ShapeRange.Width = 120
Selection.Copy
wdDoc.ActiveDocument.Bookmarks("Imagen").Range.Paste
End If
'**** Este recurso (mas algunos argumentos adicionales) me funciono cuando guardaba la imagen directamente en la planilla, pero por razones practicas ya no me conviene hacerlo asi. Si hay alguna manera de hacerlo mas fácil, se los agradezco.
En distintas variables publicas tengo guardadas los datos de:
strArchivo=nombre de la imagen ("Juan Perez.jpg" por ejemplo)
rutaimagen= símil a NombreCurso
NombreCurso = símil rutaimagen 'esto me quedo de resabio en otras instancias
