mostrar graficos segun valor de celda

Hola, MAD [¿Pablo?] !

... si en una celda pongo un 1 quiero que me aparezca una imagen (tipo jpg) al lado
... si pongo un 2 que me aparezca otra imagen.
... seleccionando un grafico incrustado pude ver una funcion llamada INCRUSTAR,
... al buscarla en la ayuda no aparece documentada [...]

el dia 5 hiciste la misma pregunta... no se si...
- no 'viste' la respuesta
- no 'probaste' la propuesta [es 'solo' una de entre otras mas -posibles-]
- no 'funciono' la sugerencia [o resulta 'confusa']

con relacion a la 'funcion' [incrustar] que 'se ve' en la barra de formulas [con 'algunos' objetos]...
- es el mecanismo que usa excel para conectar/integrar un objeto OLE 'entre' los programas 'fuente' y 'destino'
- [hasta donde yo se] no puedes usar esta formula para 'algo mas' de lo que excel ya hace, es decir...
- NO es una funcion 'utilizable' :((

saludos,
Héctor.

Creo que estoy perdiendo mensajes porque de los que publique no me aparecen
respuestas
habra que configurar el outlook de alguna manera especial?
de cualquier manera alguien me puede enviar las respuestas de nuevo
(espero no ser muy molesto) GRACIAS
"Héctor Miguel" escribió en el mensaje
news:

Hola, MAD [¿Pablo?] !

> ... si en una celda pongo un 1 quiero que me aparezca una imagen (tipo

jpg) al lado

> ... si pongo un 2 que me aparezca otra imagen.
> ... seleccionando un grafico incrustado pude ver una funcion llamada

INCRUSTAR,

> ... al buscarla en la ayuda no aparece documentada [...]

el dia 5 hiciste la misma pregunta... no se si...
- no 'viste' la respuesta
- no 'probaste' la propuesta [es 'solo' una de entre otras mas -posibles-]
- no 'funciono' la sugerencia [o resulta 'confusa']

con relacion a la 'funcion' [incrustar] que 'se ve' en la barra de

formulas [con 'algunos' objetos]...

- es el mecanismo que usa excel para conectar/integrar un objeto OLE

'entre' los programas 'fuente' y 'destino'

- [hasta donde yo se] no puedes usar esta formula para 'algo mas' de lo

que excel ya hace, es decir...

- NO es una funcion 'utilizable' :((

saludos,
Héctor.

Hola, MAD !

... perdiendo mensajes porque ... no me aparecen respuestas
... habra que configurar el outlook de alguna manera especial?

no estoy 'seguro', pero podrias 'empezar' revisando [en OE] ...
herramientas / opciones / mantenimiento / [seccion] mensajes / eliminar...
[posiblemente] 'combinado' con:
herramientas / opciones / leer / [seccion] noticias / marcar ... al salir

... alguien me puede enviar las respuestas de nuevo [...]

'hablando' de la respuesta mencionada ;) ...
== == == => ... no tengo los mensajes anteriores al 29/10

==> [si usas outlook express] puedes obtener mensajes 'anteriores' -me parece que 30 dias- con...
herramientas -> obtener los siguientes xxx encabezados

... si en una celda pongo un 1 quiero que me aparezca una imagen (tipo jpg) al lado
... si pongo un 2 que me aparezca otra imagen [...]

==> se necesitara una 'tabla de busqueda' [segun el numero] con la 'ubicacion' de los archivos jpg
que 'incluya' directorio/s + nombre_archivo + la EXTension [inclusive pudiera 'estar' en otra hoja]
y el procedimiento seria 'algo' +/- como lo siguiente:
1.- en la hoja donde 'pones' los numeros, agrega en una celda contigüa la 'ruta a la foto' [p.e.]
suponiendo que en la 'celda contigua' al numero haces un BuscarV para la foto:
'cambias' el numero en la celda 'B7'
la ruta a la foto en la celda 'contigua' [C7] con la formula =BuscarV(B7,HojaConFotos!A2:B25,2)
y quieres que la foto se 'ajuste dentro' del rango 'C8:E21' ...
2.- copia el siguiente codigo en el modulo de eventos de 'la hoja':
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$7" Then Exit Sub
Dim Foto As Object, Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("La_Foto").Delete
If Dir(Range("c7")) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(Range("c7"))
With Range("c8:e21")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "La_Foto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub

Saludos,
Héctor.