Como poner una fotografia en excel

hola, Feliciano !

Hago lo que dice Abraham pero al hacer clic en el cuadro sale una ventanita... diciendo
"Se ha producido el error '438' en tiempo de ejecucion: El objeto no admite esta propiedad o metodo"
... clic en "Depurar" aparece... el codigo resaltando en fondo amarillo la instruccion
=> With Application.FileDialog(msoFileDialogFilePicker).
Que puede estar ocurriendo?

[hasta donde se]... la constante de dialogos de ms office: -> msoFileDialogFilePicker
esta disponible a partir de la version xp/2002, o sea que si estas corriendo la macro en una version anterior...
necesitaras cambiar la instruccion por un Application.GetOpenFileName(... :))

[p.e.]

Dim Este_archivo As String
Private Sub CommandButton1_Click()
Este_archivo = Application.GetOpenFilename("Archivos de imagen (*.bmp;*.gif;*.jpg), *.bmp;*.gif;*.jpg", , "Selecciona...")
If Dir(Este_archivo) = "" Then MsgBox "Operacion cancelada !!!": Exit Sub
Image1.Picture = LoadPicture(Este_archivo)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola a todos:
Hector muchas gracias por tus indicaciones.
Finalmente sale bien con el siguiente codigo para Excel version 1997:

Private Sub Image1_Click()
Este_archivo = Application.GetOpenFilename("Archivos de imagen
(*.bmp;*.gif;*.jpg), *.bmp;*.gif;*.jpg", , "Selecciona...")
If Dir(Este_archivo) = "" Then MsgBox "Operacion cancelada !!!": Exit Sub
Image1.Picture = LoadPicture(Este_archivo)
End Sub

Respecto a las propiedades del cuadro he puesto las propiedades y valores
siguientes para que las imagenes no salgan distorsionadas:
PictureAligment = 2-fmPintureAligmentCenter
PictureSizeMode = 3-fmPictureSizeModeZoom

Saludos,

Feliciano.


"Héctor Miguel" escribió en el mensaje
news:

hola, Feliciano !

Hago lo que dice Abraham pero al hacer clic en el cuadro sale una
ventanita... diciendo
"Se ha producido el error '438' en tiempo de ejecucion: El objeto no
admite esta propiedad o metodo"
... clic en "Depurar" aparece... el codigo resaltando en fondo amarillo
la instruccion
=> With Application.FileDialog(msoFileDialogFilePicker).
Que puede estar ocurriendo?

[hasta donde se]... la constante de dialogos de ms office: ->
msoFileDialogFilePicker
esta disponible a partir de la version xp/2002, o sea que si estas
corriendo la macro en una version anterior...
necesitaras cambiar la instruccion por un Application.GetOpenFileName(...
:))

[p.e.]

Dim Este_archivo As String
Private Sub CommandButton1_Click()
Este_archivo = Application.GetOpenFilename("Archivos de imagen
(*.bmp;*.gif;*.jpg), *.bmp;*.gif;*.jpg", , "Selecciona...")
If Dir(Este_archivo) = "" Then MsgBox "Operacion cancelada !!!": Exit Sub
Image1.Picture = LoadPicture(Este_archivo)
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Mil disculpas por llegar "tarde", estuve de viaje por la linda ciudad
de Huancayo a 3200 msnm y donde se juega el futbol sin problemas!!!!
(yo no juego jejeje).- En todo caso, que bueno que Hector ya
respondio.Saludos

Abraham

Hola Abrahan:
Gracias por enviarnos tan amable y cortes mensaje. Así da gusto.
Espero hayas disfrutado en tu viaje.

Saludos,

Feliciano.
"Abraham" escribió en el mensaje
news:

Mil disculpas por llegar "tarde", estuve de viaje por la linda ciudad
de Huancayo a 3200 msnm y donde se juega el futbol sin problemas!!!!
(yo no juego jejeje).- En todo caso, que bueno que Hector ya
respondio.Saludos

Abraham