............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

INSERTAR FOTO532

INSERTAR FOTO

Ver el tema anterior Ver el tema siguiente Ir abajo

INSERTAR FOTO

Mensaje por Invitado el Jue Sep 23, 2010 8:27 pm

PARA los que buscan como inserta una foto en excel por medio de funciones y de acuerdo a una base de datos,. aqui les dejo el siguiente dato, me lo recmendo una amiga.


PASOS A SEGUIR PARA ESTA TAREA:
Hoja Datos:
1- Asignar un nombre de rango a la col A de la hoja Datos
Seleccionar el rango, menú Insertar, Nombre, Definir y aquí se estableció como nombre:Apellidos
2: En la col E de la hoja Datos se ingresan valores correlativos: 1, 2, 3, etc
3-Seleccionar la primer celda de la col E (con valor 1) y desde menú Insertar, Nombre, Definir, ingresar como nombre: img1 - Aceptar
4- Repetir el paso 3 para todas las celdas de la col E, siguiendo con img2, img3, etc.
5- Ingresar una imagen y colocarla en cada celda de la col E

Hoja Consulta:
1- Seleccionar la celda D5, ir al menú Datos, Validación, Lista y en el campo Origen escribir: = Apellidos
2- Combinar un par de celdas para darle el tamaño de la imagen o dar el tamaño adecuado a 1 celda.
En esa celda (en el ejmplo: B13) ingresar esta fórmula:
="img" & BUSCARV(D5;Datos!$A$4:$E$8;5;FALSO)
3-Seleccionar celda B13, ir al menú Insertar, Nombre, Definir e ingresar como nombre: miFoto
4-Insertar una imagen. Estando seleccionada, escribir en la barra de fórmula:
=Fotos
5- Con la imagen seleccionada, ir al menú Insertar, Nombre, Definir e ingresar como nombre: Fotos y en el campo 'se refiere a' ingresar:
=INDIRECTO(miFoto) - Aceptar

Invitado
Invitado


Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por moises melgar el Sáb Sep 25, 2010 12:38 pm

Hola
Gracias skylug por el aporte

despues de muchos intentos por fin me salio,
para eso tuve que dar con dos cosas
Pero para comprender bien solo es una combinacion de buscarv, nombres definidos y la clave principal...indirecto. Busquen en ayuda de excel para que sirven y como se usan estas tres caracteristicas pero si no se comprende aqui esta el foro para aclarar dudas y apoyarnos entre nosotros

1. ninguna combinacion de numeros con letras en vez de img1, probe imga, enves de 1,2,3---a,b,c

2. copie de un cuadro de imagen donde ya tenia la formula y la modifique

adjunto ejemplo


Última edición por moises melgar el Lun Sep 27, 2010 11:42 am, editado 1 vez

moises melgar
Jr_Moderator

Masculino Cantidad de envíos: 456
Edad: 26
Ciudad - Pais: Coatzacoalcos - Mexico
Version de Excel: 2007
Fecha de inscripción: 25/05/2010

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por GalileoGali el Sáb Sep 25, 2010 5:23 pm

Gracias por la iniciativa y aporte de skylug. Mi aporte es una version que prescinde de Asignar Rangos con Nombres a Cada Foto, con lo que tanto el archivo como el trabajo se alivianan.


vean en el administrador de Nombres que hay tan solo tres y podrian ser uno, tanto Elegido como Referido son Rangos con Nombre que NO intervienen en la funcionalidad de activar las imagenes. Tampoco uso INDIRECTO




Nota para los que trabajan con Excel 2007, les recomiendo que agreguen a la QAT (Quickly Acces ToolBar) la Camara de Fotos, para proveerse de la Imagen Vacia a la cual insertarle luego la formula "=Imagen"

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos: 1962
Edad: 58
Ciudad - Pais: QUIROGA, Argentina
Version de Excel: 2000-2003-2007-2010
Fecha de inscripción: 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por Tatayayan el Dom Sep 26, 2010 1:25 pm

Hola Gali y ¿cómo agregar la barra? ¿deahí sale la imagen a la que le asigno la fórmmula =Imagen?

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos: 315
Ciudad - Pais: Chamical- La Rioja - ARG
Fecha de inscripción: 20/11/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por Tatayayan el Dom Sep 26, 2010 1:38 pm

Solucionado, copie la celda y pegué como imagenes con vínculos (Excel '07).

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos: 315
Ciudad - Pais: Chamical- La Rioja - ARG
Fecha de inscripción: 20/11/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por GalileoGali el Dom Sep 26, 2010 5:31 pm

Adrian (Tatayayan): ....Así NO VALE....(jejejeje) yo me pasé un buen rato hasta que encontre el recurso con la CAMARA habilitando el icono en la Barra de acceso rapido, cuando, sabiendo, resulta mas sencillo con el metodo que describes...
GRACIAS, pues.....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos: 1962
Edad: 58
Ciudad - Pais: QUIROGA, Argentina
Version de Excel: 2000-2003-2007-2010
Fecha de inscripción: 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por moises melgar el Lun Sep 27, 2010 11:43 am

gracias maestro gali facilita mas las cosas

moises melgar
Jr_Moderator

Masculino Cantidad de envíos: 456
Edad: 26
Ciudad - Pais: Coatzacoalcos - Mexico
Version de Excel: 2007
Fecha de inscripción: 25/05/2010

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por cdoc el Dom Dic 05, 2010 12:31 pm

Otra alternativa muy simple:

Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Dim WS As Worksheet
Dim mPath As String
Dim Ruta
Ruta = Sheets("PARAMETROS").Range("AP2")
If Not Application.Intersect(Sheets("datos_cotizac").Range("dd4"), Target) Is Nothing Then
    'mPath = "C:\curso" & Target.TEXT & ".jpg"
    mPath = Ruta & Target.TEXT & ".jpg"
    If Dir(mPath) <> "" Then
        Set WS = ActiveSheet
        WS.OLEObjects("Image1").Object.Picture = LoadPicture(mPath)
    End If
End If

End Sub
Este código va en una Hoja (la 1 por ejemplo)

Deben crear una carpeta en C:\CURSO donde incorporan imágenes jpg

En "dd4" debe desplegarse el nombre de los archivos de imágenes SIN EXTENSIÓN.

Insertan un cuadro de Imagen (control ActiveX)

Pueden generar unalista desplegable para seleccionar la imagen y cuyo nombre vaya a dar a la celda "dd4".

Aquí el sitio de donde lo obtuve:

Load a pic into ActiveX Image control - MrExcel Message Board
[Tienes que estar registrado y conectado para ver este vínculo]


cdoc

Cantidad de envíos: 9
Fecha de inscripción: 29/09/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por Logroastur el Lun Dic 06, 2010 2:34 am

Buenas otra opción para crear un visor de imagenes es con un grafico de dispersión colocando en cada punto una imagén la pega es el peso que toma el archivo pero la aparencia es buena

aca dejo un ejemplo, se puede seleccionar la imagen bien por lista despegable o automaticamente por botón

Visor imagenes

un saludo

Logroastur
Moderador
Moderador

Masculino Cantidad de envíos: 32
Edad: 50
Ciudad - Pais: España
Version de Excel: 2007
Fecha de inscripción: 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por moises melgar el Lun Dic 06, 2010 1:58 pm

Hola Logroastur felicidades por tu trabajo es muy bueno y muy ingenioso ademas le da una buena presentacion, vaya no se como explicarme..cambiar los marcadores para decirnarles una imagen y acomodarlas para darles este efecto y luego con la macro para cambiar el nombre de la imagen, buscar v para que se modifique la serie y el marcador que tendra la serie5,5
Esta de 10

gracias por tomarte el tiempo para hacerla.

moises melgar
Jr_Moderator

Masculino Cantidad de envíos: 456
Edad: 26
Ciudad - Pais: Coatzacoalcos - Mexico
Version de Excel: 2007
Fecha de inscripción: 25/05/2010

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por cdoc el Lun Dic 06, 2010 5:32 pm

Logroastur escribió:Buenas otra opción para crear un visor de imagenes es con un grafico de dispersión colocando en cada punto una imagén la pega es el peso que toma el archivo pero la aparencia es buena

aca dejo un ejemplo, se puede seleccionar la imagen bien por lista despegable o automaticamente por botón

Visor imagenes

un saludo

muy bueno, pero no me resulta....

cdoc

Cantidad de envíos: 9
Fecha de inscripción: 29/09/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por Tatayayan el Lun Dic 06, 2010 5:49 pm

Esta macro que hice requiere de que exista una celda de nombre RutaImagen

Código:
Sub Imagen()
'Esta macro sirve para elegir una imagen de formato .gif o jpeg o jpg
'siempre y cuando en la hoja esté una celda de nombre "RutaImagen"
'Pone la ruta e inserta la imagen gif
Dim Fotito, x As Range, HojaTrabajo As Worksheet, Forma As Shape, RutaFoto As String
Dim TiposArchivos As String
Const sShape As String = "Imagen"
'Verifico si existe nombre RutaImagen
On Error Resume Next
Set x = Range("RutaImagen")
On Error GoTo 0
If x Is Nothing Then
MsgBox "Debe crear el nombre 'RutaImagen' primero.", 64, ""
Exit Sub
End If
'Se Abre cuadro de dialogo para q seleccione el .gif
TiposArchivos = "Imagenes jpg (*.jpg), *.jpg,Imagenes Gif (*.gif), *.gif, Imagenes Bmp (*.bmp), *.bmp"
Fotito = Application.GetOpenFilename(FileFilter:=TiposArchivos, Title:="Elija la foto")
If Fotito = False Then
  MsgBox "No ha seleccionado nada!", 64, ""
  Exit Sub
Else
  Range("RutaImagen").Value = Fotito
End If
'Verifico si existe el rectángulo para insertar la imagen, si no se lo inserto
Set HojaTrabajo = ActiveSheet
With HojaTrabajo
    On Error Resume Next
    Set Forma = .Shapes(sShape)
    On Error GoTo 0
    If Not Forma Is Nothing Then
    Else
        MsgBox "Se insertará un rectángulo desde donde se mostrará la imagen. Cambie su ubicación y tamaño a gusto.", 64, ""
        Set Forma = .Shapes(1)
    Forma.Name = "Imagen"
    End If
End With
'Muestro la foto en la imagen
On Error Resume Next
RutaFoto = Range("RutaImagen").Value
ActiveSheet.Shapes("Imagen").Fill.UserPicture RutaFoto
Range("RutaImagen").Select
On Error GoTo 0
End Sub

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos: 315
Ciudad - Pais: Chamical- La Rioja - ARG
Fecha de inscripción: 20/11/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por cdoc el Lun Dic 06, 2010 6:01 pm

Tatayayan escribió:Esta macro que hice requiere de que exista una celda de nombre RutaImagen

Código:
Sub Imagen()
'Esta macro sirve para elegir una imagen de formato .gif o jpeg o jpg
'siempre y cuando en la hoja esté una celda de nombre "RutaImagen"
'Pone la ruta e inserta la imagen gif
Dim Fotito, x As Range, HojaTrabajo As Worksheet, Forma As Shape, RutaFoto As String
Dim TiposArchivos As String
Const sShape As String = "Imagen"
'Verifico si existe nombre RutaImagen
On Error Resume Next
Set x = Range("RutaImagen")
On Error GoTo 0
If x Is Nothing Then
MsgBox "Debe crear el nombre 'RutaImagen' primero.", 64, ""
Exit Sub
End If
'Se Abre cuadro de dialogo para q seleccione el .gif
TiposArchivos = "Imagenes jpg (*.jpg), *.jpg,Imagenes Gif (*.gif), *.gif, Imagenes Bmp (*.bmp), *.bmp"
Fotito = Application.GetOpenFilename(FileFilter:=TiposArchivos, Title:="Elija la foto")
If Fotito = False Then
  MsgBox "No ha seleccionado nada!", 64, ""
  Exit Sub
Else
  Range("RutaImagen").Value = Fotito
End If
'Verifico si existe el rectángulo para insertar la imagen, si no se lo inserto
Set HojaTrabajo = ActiveSheet
With HojaTrabajo
    On Error Resume Next
    Set Forma = .Shapes(sShape)
    On Error GoTo 0
    If Not Forma Is Nothing Then
    Else
        MsgBox "Se insertará un rectángulo desde donde se mostrará la imagen. Cambie su ubicación y tamaño a gusto.", 64, ""
        Set Forma = .Shapes(1)
    Forma.Name = "Imagen"
    End If
End With
'Muestro la foto en la imagen
On Error Resume Next
RutaFoto = Range("RutaImagen").Value
ActiveSheet.Shapes("Imagen").Fill.UserPicture RutaFoto
Range("RutaImagen").Select
On Error GoTo 0
End Sub

da error: dice que "El índice de la colección especificada se encuentra fuera de los límites." ¿?

el puntero amarillo se detiene en: Set Forma = .Shapes(1)

cdoc

Cantidad de envíos: 9
Fecha de inscripción: 29/09/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por Tatayayan el Lun Dic 06, 2010 6:07 pm

Que raro che?, que raro? Bueno pongo un archivo adjunto
Archivo

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos: 315
Ciudad - Pais: Chamical- La Rioja - ARG
Fecha de inscripción: 20/11/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por GalileoGali el Lun Dic 06, 2010 8:14 pm

Muy bueno Tatayayan!!!

cdoc: probe el codigo en 2010, sin problemas

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos: 1962
Edad: 58
Ciudad - Pais: QUIROGA, Argentina
Version de Excel: 2000-2003-2007-2010
Fecha de inscripción: 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por moises melgar el Lun Dic 06, 2010 8:46 pm

esta muy chido , muy practvo para seleccionar las imagenes y complementar las otras aportaciones
No he tenido problema con ninguna aportacion

moises melgar
Jr_Moderator

Masculino Cantidad de envíos: 456
Edad: 26
Ciudad - Pais: Coatzacoalcos - Mexico
Version de Excel: 2007
Fecha de inscripción: 25/05/2010

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por cdoc el Mar Dic 07, 2010 7:00 pm

Tatayayan escribió:Esta macro que hice requiere de que exista una celda de nombre RutaImagen

Código:
Sub Imagen()
'Esta macro sirve para elegir una imagen de formato .gif o jpeg o jpg
'siempre y cuando en la hoja esté una celda de nombre "RutaImagen"
'Pone la ruta e inserta la imagen gif
Dim Fotito, x As Range, HojaTrabajo As Worksheet, Forma As Shape, RutaFoto As String
Dim TiposArchivos As String
Const sShape As String = "Imagen"
'Verifico si existe nombre RutaImagen
On Error Resume Next
Set x = Range("RutaImagen")
On Error GoTo 0
If x Is Nothing Then
MsgBox "Debe crear el nombre 'RutaImagen' primero.", 64, ""
Exit Sub
End If
'Se Abre cuadro de dialogo para q seleccione el .gif
TiposArchivos = "Imagenes jpg (*.jpg), *.jpg,Imagenes Gif (*.gif), *.gif, Imagenes Bmp (*.bmp), *.bmp"
Fotito = Application.GetOpenFilename(FileFilter:=TiposArchivos, Title:="Elija la foto")
If Fotito = False Then
  MsgBox "No ha seleccionado nada!", 64, ""
  Exit Sub
Else
  Range("RutaImagen").Value = Fotito
End If
'Verifico si existe el rectángulo para insertar la imagen, si no se lo inserto
Set HojaTrabajo = ActiveSheet
With HojaTrabajo
    On Error Resume Next
    Set Forma = .Shapes(sShape)
    On Error GoTo 0
    If Not Forma Is Nothing Then
    Else
        MsgBox "Se insertará un rectángulo desde donde se mostrará la imagen. Cambie su ubicación y tamaño a gusto.", 64, ""
        Set Forma = .Shapes(1)
    Forma.Name = "Imagen"
    End If
End With
'Muestro la foto en la imagen
On Error Resume Next
RutaFoto = Range("RutaImagen").Value
ActiveSheet.Shapes("Imagen").Fill.UserPicture RutaFoto
Range("RutaImagen").Select
On Error GoTo 0
End Sub

al fin me funcionó en 2010. Lo que pasa es que no sabía que había que poner un rectángulo en la hoja. Lo hice solamente por casualidad. Es muy útil tu funcionalidad. Gracias!!!

cdoc

Cantidad de envíos: 9
Fecha de inscripción: 29/09/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por cdoc el Mar Dic 07, 2010 7:02 pm

Logroastur escribió:Buenas otra opción para crear un visor de imagenes es con un grafico de dispersión colocando en cada punto una imagén la pega es el peso que toma el archivo pero la aparencia es buena

aca dejo un ejemplo, se puede seleccionar la imagen bien por lista despegable o automaticamente por botón

Visor imagenes

un saludo

¿y cómo se colocan las fotos en cada punto en el gráfico...? disculpa, tal vez es algo super obvio... pero yo no lo sé. Gracias.

cdoc

Cantidad de envíos: 9
Fecha de inscripción: 29/09/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por moises melgar el Mar Dic 07, 2010 7:20 pm

en Excel 2007
Seleccionando el punto a asignar una imagen
clik derecho/formato de serie de datos/

1. opciones de marcador
Selecciona la ultima opcion que aparece el icono de imagen

2. Relleno de marcados
Seleccionar Relleno con imagen o textura
aparecera el boton para Insertar de Archivo
y listo

moises melgar
Jr_Moderator

Masculino Cantidad de envíos: 456
Edad: 26
Ciudad - Pais: Coatzacoalcos - Mexico
Version de Excel: 2007
Fecha de inscripción: 25/05/2010

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por Logroastur el Mar Dic 07, 2010 9:24 pm

Buenas moises gracias por el apunte otra opción es abrir el archivo de la imagen en paint y seleccionar todo copiar y luego en excel seleccionar el punto en el grafico y con control v pegar la imagen

un saludo

_________________


ForoExcel



Logroastur
Moderador
Moderador

Masculino Cantidad de envíos: 32
Edad: 50
Ciudad - Pais: España
Version de Excel: 2007
Fecha de inscripción: 20/11/2010

http://www.foroexcel.com/foro/

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por cdoc el Miér Dic 08, 2010 11:58 am

Gracias a ambos. Muy bien.

cdoc

Cantidad de envíos: 9
Fecha de inscripción: 29/09/2008

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por LZUTACHAVEZ el Lun Jul 23, 2012 11:50 pm

Estimado,
por favor solicito su ayuda, debido a que necesito insertar una imagen en movimiento en una hoja excel y no logro conseguirlo, esta imagen al insertar queda fija y sin movimiento, de antemano muchas gracias por su ayuda.

Saludos,
Lorenzo

LZUTACHAVEZ

Masculino Cantidad de envíos: 1
Edad: 31
Ciudad - Pais: Lima
Version de Excel: 2007
Fecha de inscripción: 23/07/2012

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por GalileoGali el Mar Jul 24, 2012 8:59 am

Prueba poniendo en google lo sigte.;

webbrowser gif Excel

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional

GalileoGali
Admin

Masculino Cantidad de envíos: 1962
Edad: 58
Ciudad - Pais: QUIROGA, Argentina
Version de Excel: 2000-2003-2007-2010
Fecha de inscripción: 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por moises melgar el Mar Jul 24, 2012 1:05 pm

En este foro:
Insetar gif en excel (Excel 2007)
[Tienes que estar registrado y conectado para ver este vínculo]

moises melgar
Jr_Moderator

Masculino Cantidad de envíos: 456
Edad: 26
Ciudad - Pais: Coatzacoalcos - Mexico
Version de Excel: 2007
Fecha de inscripción: 25/05/2010

Volver arriba Ir abajo

Re: INSERTAR FOTO

Mensaje por campososcar el Vie Jul 11, 2014 5:04 pm

Buenas tardes, estoy necesitando de ser posible acceder al archivo Que raro che?, que raro? Bueno pongo un archivo adjunto
Archivo.....pero dice serivicio no disponible, bueno si me puden dar una mano agradecido!!

campososcar

Masculino Cantidad de envíos: 1
Edad: 33
Ciudad - Pais: trelew argentina
Version de Excel: 2010
Fecha de inscripción: 11/07/2014

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


Permisos de este foro:
No puedes responder a temas en este foro.