Insertar una imagen con macro

Buen día estimados, diseñe una factura en excel en donde posee un botón que ejecuta una macro que genera la misma factura en otro documento. En si la consulta es que debo agregar al código del botón para que al momento de generar el nuevo documento se inserte al mismo tiempo de forma automática una imagen, que en este caso es el logo de la empresa.
Anexo el código del botón:
Private Sub GENERAR_DOCUMENTO_Click()
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub
Muchas Gracias.

1 respuesta

Respuesta
1
He modificado tu código. A tu hoja le he añadido otra llamada "Imagenes" donde tendremos imágenes que se podrán insertar. En este caso el nombre de la imagen a insertar la tomo de la celda B5. Este nombre lo coloca Excel automáticamente al insertar una imagen.
El código es este:
Dim imagen As String
Dim hoja As String
imagen = Worksheets("hoja1").Range("b5").Value
hoja = ActiveSheet.Name
Worksheets("Imagenes").Select
ActiveSheet.Shapes(imagen).Select
Selection.Copy
Workbooks.Add
Sheets("hoja1").Select
ActiveSheet.Range("a1").Select
ActiveSheet.Paste
Workbooks(1).Activate
Sheets("hoja1").Select
ActiveSheet.Cells.Select
Selection.Copy
Workbooks(2).Activate
Sheets("hoja1").Select
ActiveSheet.Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
No olvides puntuar y finalizar la pregunta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Mediante macro copiar hojas a un nuevo libro quitando vínculos

¿Cómo seria una macro que me copie dos hojas y las pegue en un nuevo libro pero que quite los vínculos de las hojas copiadas?, tengo esta macro pero solo me quita los vínculos de la hoja Forma10: Sub Imprime() Application.ScreenUpdating = False...
2 respuestas

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro para copiar celdas con formato (color) a otra celda

Ya se me indicó en una ocasión la forma de trasladar (copiar) celdas de una hoja a otra con una macro. Ahora quisiera que también se transfiriesen no sólo el valor de las celdas sino también el color. Os adjunto parte del código de la macro que...
1 respuesta

Error 1004 en tiempo de ejecución al importar datos de un fichero excel a otro mediante una macro

Estoy intentando importar datos de un fichero excel a otro mediante una macro. El problema lo tengo al pegar, ya que necesito pegar tanto el formato como los datos, así que lo hago con 2 "paste's", uno para el estilo y otro para los valores. Al hacer...
2 respuestas

Mantener formato tras pegar una selección

He escrito cierto código en una macro en la cual copia una selección con un cierto formato y la pega en otro libro nuevo también generado por código. El problema es que cuando se pega esta selección lo hace sin el formato original. ¿Dónde estoy...
1 respuesta

Macro Excel filtrar copiar y pegar

Me gustaría pudiera facilitarme una macro que filtre en la hoja1 celda C3, el texto de la celda F6 de la hoja 2, que copie las filas que contengan ese valor y las pegue en la hoja 2 desde la fila 12.
1 respuesta