MOSTAR IMAGEN SEGUN DATO EN CELDA- PART II

Buenas tardes,

Hector;

Es una pequeña variante de la hoja que inserta una imágen ; que me
recomendaste.

Es decir... en lugar de teclear los códigos de los productos en la celda;
para que luego de pulsar "Enter" salga la imagen;


Quisiera, si es posible, que usando la barra de desplazamiento (herramienta
de formularios) que vincularía con lista de códigos que estan Hoja2;
surtiera el mismo efecto en lugar de teclear los códigos uno por uno...

Gracias



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

hola, Carlos !

> ... usando una barra de desplazamiento que muestra los codigos de los

productos

> ... mostrar la imagen que se corresponde al seleccionar uno de ellos

...

1) los controles de barras de desplazamiento [supongo] 'incrustados' en

una hoja...

NO 'disparan' eventos en la hoja [p.e. el evento

'Worksheet_Change(.]'

[seguramente] habria que buscar la manera de 'forzar' el evento

'_calculate'

-> solo toma en cuenta que 'avanzar' la barra va a disparar -> varios

eventos '_calculate' :-(

2) serviria si comentas algunos detalles adicionales, como...
-> en cual celda se deposita el 'avance' de la barra [y si inicia

desde cero o desde uno]

-> en que otra celda 'se mustra' -> el codigo [correspondiente a cada

imagen]

-> si el codigo [de cada imagen] representa la ubicacion y el nombre

de su archivo de imagen

o que formula/funcion utilizas [y 'donde'] para 'rescatar' la

ubicacion de cada archivo/imagen

3) otra -posible- 'altrnativa' seria usar reglas de validacion por lista

[en lugar de las barras de desplazamiento]

comentas por donde 'le damos' [o cualquier detalle relevante -aun- 'en el

tintero'] ?

saludos,
hector.

hola, Carlos !

Es una peque#a variante de la hoja que inserta una imagen que me recomendaste.
Es decir... en lugar de teclear los codigos de los productos en la celda; para que luego de pulsar "Enter" salga la imagen;
Quisiera, si es posible, que usando la barra de desplazamiento (herramienta de formularios)
que vincularia con lista de codigos que estan Hoja2 surtiera el mismo efecto en lugar de teclear los codigos uno por uno...

[bueno]... hay 'algunos' puntos/preguntas del mensaje anterior que dejas 'en el aire' :))
[asi que]... vamos a empezar... suponiendo que...
-> el formato de [todas] las imagenes es 'JPG'
-> el directorio de [todas] las imagenes es 'C:\Mis imagenes\'
-> tienes un rango-nombre -> en la hoja2 con la lista de codigos/nombres de las imagenes -> 'llamado' -> Fotos
-> deseas que la imagen quede 'enmarcada' dentro del rango 'F1:H21' -> de la hoja1...
-> en la hoja1 tienes incrustada la barra de desplazamiento -> vinculada a la celda 'A1' [donde de deposita un numero]
y que en el formato del control [seccion control] tienes establecido un valor 'minimo' -> de 1 [uno] <= OJO
-> si se diera el caso que no existen 'formulas volatiles' en la hoja1... -> agrega [p.e.] en la celda 'A2' la formula: ¡ <= OJO

ya comentaras donde mis supuestos esten 'equivocados' :))
saludos,
hector.

en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Calculate()
Dim De_donde As String, Foto As Object, _
Arriba As Double, Izquierda As Double, Ancho As Double, Alto As Double
Application.ScreenUpdating = False
On Error Resume Next
Me.Shapes("LaFoto").Delete
De_donde = "C:\Mis imagenes\" & Worksheets("Hoja2").Range("Fotos").Cells([a1]) & ".jpg"
If Dir(De_donde) = "" Then Exit Sub
Set Foto = Me.Pictures.Insert(De_donde)
With Me.Range("f1:h21")
Arriba = .Top
Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto
.Name = "LaFoto"
.Top = Arriba
.Left = Izquierda
.Width = Ancho
.Height = Alto
End With
Set Foto = Nothing
End Sub