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

Selecciona la celda en que estará el vértice superior izquierdo de la imagen y usa la instrucción:

Application.Dialogs(xlDialogInsertPicture).Show

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Martí Mayné" escribió en el mensaje news:

Hola a todos,

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

Gracias!

Quick

la de fernando es buena. ;)


Cesar



Fernando Arroyo wrote:

Selecciona la celda en que estará el vértice superior izquierdo de la imagen y usa la instrucción:

Application.Dialogs(xlDialogInsertPicture).Show

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Martí Mayné" escribió en el mensaje news:

Hola a todos,

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

Gracias!

Quick

"Cesar Zapata" escribió en el mensaje news:

la de fernando es buena. ;)


Cesar

Y la tuya también. Si la hubiera visto, no habría enviado la mía, pero ambos mensajes han sido casi simultáneos.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Fernando Arroyo wrote:
> Selecciona la celda en que estará el vértice superior izquierdo de la imagen y usa la instrucción:
>
> Application.Dialogs(xlDialogInsertPicture).Show
>
> Un saludo.
>
>
> Fernando Arroyo
> MS MVP - Excel
>
>
> "Martí Mayné" escribió en el mensaje news:
>
>> Hola a todos,
>>
>> Necesito abrir el cuadro de dialogo insertar imagen de excel desde
>>codigo,
>>sabeis como hacerlo.
>>
>> Gracias!
>>
>> Quick
>>
>
>