Solicito ayuda con un fallo de interpretación de imagenes y fórmulas del propio programa de Excel

[EdadMedia]

Buenos días,

Ante todo, gracias por adelantado y disculpad que no me haya presentado oficialmente en el foro, soy nuevo (jelow: presentación hecha (?))

Mi caso es el siguiente:

1. Tengo dos hojas en un archivo.
2. La primera hoja es una tabla, con imágenes y otros datos
3. La segunda, una fórmula que devuelve una de las imágenes en la tabla, según el dato encontrado en una lista de validación de datos desplegable de una celda designada (hasta aquí, todo bien, funciona y todo)
4. EL PROBLEMA: Cuando, en la primera hoja se hace scroll hacia abajo y vuelves a la segunda hoja, al hacer click en la celda de la lista de validación, Excel mueve la imagen que ha encontrado, según donde esté el scroll de la primera hoja.

EJEMPLO BÁSICO:

Si "Sheets("primera hoja").ScrollRow = 1", osea, arriba del todo, la imagen se ve bien

Por cada poquito que hagas scroll hacia abajo, la imagen se va moviendo.

 

*Como digo, el código funciona, trae la imagen sin problema y todo bien, el fallo está en el scroll (dejo capturas también):

- IMAGEN BIEN, CON SCROLL EN "TOP = 0"

 

- IMAGEN MAL, CUANDO SCTOLL NO ES "TOP = 0"

 

A falta de solución, uso este código de momento:

- CODIGO QUE USO PARA VOLVER EL SCROLL A "TOP = 0"

"Sub calcularFoto()
    
    Dim nombreHoja As String
    
    nombreHoja = ActiveSheet.Name
    
    Application.ScreenUpdating = False
    
    Sheets("inventory").Select
    
    ActiveWindow.ScrollRow = 1
    
    Sheets(nombreHoja).Select
    
    Application.ScreenUpdating = True
    
    Range("$C$10").Select
    
End Sub"

 

Si alguien pudiera ayudarme a buscar una solución más eficaz, que no sea mover el scroll, estaría muy agradecido.

De nuevo, gracias de antemano, que no albergo muchas esperanzas, porque entiendo que es un error del propio excel como tal, que interpreta mal las imagenes o algo...

[EdadMedia]

Por si puede servir, adjunto ejemplo en archivo en un RAR, que he conseguido reducir el tamaño a menos de 100kb  después de pasarlo a formato Excel binario y poner las imagenes en low resolution... ?

Vereis que al hacer scroll en la primera hoja, si seleccionas la lista desplegable en la segunda, se descuadra la imagen.

Quien pueda... ¡JELP! para que esto no suceda y.y

New Microsoft Excel Worksheet.rar

[John Jairo V]

¡Saludos @EdadMedia!

Es un extraño comportamiento este que mencionas, el cual también replico a la hora de hacer scroll en la página donde están las imágenes.  No he encontrado tampoco algo que permita corregirlo, pero creo puedo mejorar un poco (quizá) el código que estás usando actualmente.

Prueba colocando este código en el objeto ThisWorkbook del libro en cuestión:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name = "Sheet2" Then
    With Application
      .EnableEvents = False
      .Goto Sheets("Sheet1").Range("A1"), True
      Sh.Select
      .EnableEvents = True
    End With
  End If
End Sub

Siendo:

✅Sheet1: El nombre de la hoja donde tienes las imágenes.

✅Sheet2: El nombre de la hoja donde tienes la validación de datos de las imágenes.

La ventaja de hacerlo así es que cuando selecciones la hoja Sheet2, entonces automáticamente se ejecutará el código del "Scroll" en la hoja Sheet1, y entonces la imagen quedará adecuada correctamente.

¡Espero te sirva! ¡Bendiciones mil!

[EdadMedia]

A falta de pan, buenas son galletas xD

La verdad es que más eficiente es, porque no tengo que poner un botón para cada vez que se descuadra.

¡Muchas gracias!