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 .

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

Hola:

Con esta modificación creo que solucionaría su problema:

Sub InsertarIMGcorte()


ActiveSheet.Range("K5").Activate

[B]If Application.Dialogs(xlDialogInsertPicture).Show = True Then[/B]

   With Selection

      .ShapeRange.LockAspectRatio = msoTrue

      .ShapeRange.Height = 290

      .ShapeRange.Left = .ShapeRange.Left + 1

      .ShapeRange.Top = .ShapeRange.Top + 1

   End With

[B]End If[/B]


End Sub



[/CODE]

Saludos

Hola

lo he probado y funciona perfecto

Gracias por la ayuda y la velocidad de respuesta :subdued:

Tema solucionado