Soy nuevo y de excel no tengo casi ni idea, estoy haciendo un libro para hacerme escandallos de trabajos y necesitaria hacer un boton para insertar una imagen, en una posicion y con un tamaño en la hoja con la que estoy trabajando.Buscando por varios foros he conseguido hacer este macro .
Sub InsertarIMGcorte()
ActiveSheet.Range("K5").Activate
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Height = 290 'Alto de la imagen
.ShapeRange.Left = .ShapeRange.Left + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (izquierda)
.ShapeRange.Top = .ShapeRange.Top + 1 'Añadimos 1 para que se vea la línea divisoria de la celda (superior)
End With
End Sub
[/CODE]
El problema esta en que si cancelo en el cuadro de insertar imagen, el macro me da error 438 en tiempo de ejecucion
me prodrias decir como solucionarlo?
Gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos
Soy nuevo y de excel no tengo casi ni idea, estoy haciendo un libro para hacerme escandallos de trabajos y necesitaria hacer un boton para insertar una imagen, en una posicion y con un tamaño en la hoja con la que estoy trabajando.Buscando por varios foros he conseguido hacer este macro .
El problema esta en que si cancelo en el cuadro de insertar imagen, el macro me da error 438 en tiempo de ejecucion
me prodrias decir como solucionarlo?
Gracias