Abrir el cuadro de dialogo insertar imagen desde codigo???

Hola,

Trata esto.

Sub InsertImagen()
'
fileToOpen = Application _
.GetOpenFilename("Imagenes (*.bmp), *.jpeg") 'añadir mas extensiones.


If fileToOpen <> False Then
ActiveSheet.Pictures.Insert(fileToOpen).Select

End If


Exit Sub
100:

Exit Sub

End Sub





Martí Mayné wrote:

Hola a todos,

Necesito abrir el cuadro de dialogo insertar imagen de excel desde
codigo,
sabeis como hacerlo.

Gracias!

Quick