Como poner una fotografia en excel

desea la fotografia como fondo?

Formato\Hoja\Fondo - Escoger la foto que desea como fondo

La desea como objeto?

Insertar\Imagen\Desde Archivo - Escoger la foto

y otra opcion es "copiar y pegar", copiar la foto desde el programa
origen y pegarla en MsExcel (ctrl + v)



http://GabrielRaigosa.GooglePages.com/




escribió:

Necesito poner un cuadro que pregunta si quero poner una imagen en el
cuadro. Tambien tiene que cambiar el tamano de la imagen paraque sea
del mismo tamano que el cuadro. No se si esto se pueda hacer en excel
o si tenga que hacer esto con otro programa.

disculpa, creo no haber entendido, el cuadro es una autoforma en excel?

una de las propiedades de la auto forma es el fondo, y el fondo podria
ser una imagen, pero me parece que no entiendo bien la pregunta.



http://GabrielRaigosa.GooglePages.com/





escribió:

Necesito poner un cuadro que pregunta si quero poner una imagen en el
cuadro. Tambien tiene que cambiar el tamano de la imagen paraque sea
del mismo tamano que el cuadro. No se si esto se pueda hacer en excel
o si tenga que hacer esto con otro programa.

On Jun 27, 3:30 pm, Gabriel Raigosa
wrote:

disculpa, creo no haber entendido, el cuadro es una autoforma en excel?

una de las propiedades de la auto forma es el fondo, y el fondo podria
ser una imagen, pero me parece que no entiendo bien la pregunta.



http://GabrielRaigosa.GooglePages.com/



escribió:



> Necesito poner un cuadro que pregunta si quero poner una imagen en el
> cuadro. Tambien tiene que cambiar el tamano de la imagen paraque sea
> del mismo tamano que el cuadro. No se si esto se pueda hacer en excel
> o si tenga que hacer esto con otro programa.- Hide quoted text -

- Show quoted text -

No, quiero que cuando haga click en el cuadro me pregunte si quiero
poner una imagen en el cuadro.

Supondre que tienes un "cuadro" de imagne de la barra de controles en
tu hoja de excel. Entonces, primero que nada, en su propiedad
PictureSizeMode coloca 1-FmPictureSizeModeStrech. Ahora, suponiendo
que la imagen se llama Image1, en el modulo d ela hoja coloca:

Private Sub Image1_Click()
Dim fileName As String

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la imagen"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = Application.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Image1.Picture = LoadPicture(fileName)

End If
End With

Listo.

Abraham

PD: Codigo obtenido de la B.D. Neptuno que viene con el access

Hola al anonimo, a Gabriel y a Abraham:
Perdonad la intromision pero es un tema que me interesa.
Hago lo que dice Abraham pero al hacer clic en el cuadro sale una ventanita
de MVB diciendo "Se ha producido el error '438' en tiempo de ejecucion: El
objeto no admite esta propiedad o metodo". A continuacion las opciones
"Continuar" [no disponible], "Finalizar", "Depurar" y "Ayuda".
Si hago clic en "Depurar" aparece MVB con el codigo resaltando en fondo
amarillo la instruccion => With
Application.FileDialog(msoFileDialogFilePicker).
¿Que puede estar ocurriendo?

Saludos,

Feliciano.

"Abraham" escribió en el mensaje
news:

Supondre que tienes un "cuadro" de imagne de la barra de controles en
tu hoja de excel. Entonces, primero que nada, en su propiedad
PictureSizeMode coloca 1-FmPictureSizeModeStrech. Ahora, suponiendo
que la imagen se llama Image1, en el modulo d ela hoja coloca:

Private Sub Image1_Click()
Dim fileName As String

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la imagen"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = Application.Path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Image1.Picture = LoadPicture(fileName)

End If
End With

Listo.

Abraham

PD: Codigo obtenido de la B.D. Neptuno que viene con el access