Imprimir página | Cerrar ventana

Imagen/Forma desplazable

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86100
Fecha de impresión: 28/Marzo/2024 a las 14:39


Tema: Imagen/Forma desplazable
Publicado por: Gladiador
Asunto: Imagen/Forma desplazable
Fecha de publicación: 30/Agosto/2021 a las 22:36
Hola, tengo una curiosidad

Es posible tener un una imagen/Forma/Cuadro de texto que se desplace a medida que uno se mueva por la hoja?

Al igual que hay en las páginas web, que hay cuadros que se mueven cuando uno lee se mueven hacia abajo.

La razón es la siguiente:
Si he inmovilizado las 2 primeras columnas, quisiera poner un cuadro/imagen a modo de título, de manera que si me desplazo hacia la derecha, el título se mueve/permanezca en la parte superior.

Gracias

Gladiador



Respuestas:
Publicado por: AnSanVal
Fecha de publicación: 31/Agosto/2021 a las 18:04
Son lenguajes diferentes con capacidades diferentes.

Revisa el ejemplo 21 de mi sitio web, seguramente resolverás modificando solamente LEFT.




-------------
Saludos desde Tenerife.


Publicado por: lbauluz
Fecha de publicación: 01/Septiembre/2021 a las 11:20
Hola

Como ejemplo.

He creado un cuadro de texto "TextBox 1"

Cuando ejecuto la subfunción test, me lo sitúa en el centro de la pantalla, esté donde esté.

Creo que a partir de aquí puedes encontrar la forma de hacerlo.

Un saludo.

Luis

Sub test()
    Dim Shp1 As Shape
    
    Set Shp1 = ActiveSheet.Shapes("TextBox 1")
    
    With ActiveWindow.VisibleRange
        Shp1.Top = .Top + .Height / 2 - Shp1.Height / 2
        Shp1.Left = .Left + .Width / 2 - Shp1.Width / 2
    End With
    Shp1.Visible = True
End Sub



NOTA: si das FIN y flecha abajo, no funciona bien, no se por qué, lo pone centrado con las columnas, pero en la última fila en lugar de en medio, supongo que se podrá controlar, pero....

Nota 2: ya sé por qué, se produce un desbordamiento en los valores top y left del shape, cuando tenga más tiempo miraré a ver por qué.



-------------
El Búho es un pajarraco


Publicado por: Gladiador
Fecha de publicación: 01/Septiembre/2021 a las 23:22
Hola AnSanVal e Ibaukuz

Muy agradecido por el tiempo empleado en responderme.

He revisado y probado ambos métodos y han funcionado muy bien, haciendo los respectivos ajustes para las necesidades de mi hoja. Gracias

Lo que me gustaría conocer es las equivalencias entre el Ancho de celda y el Valor que uno ve cuando va a Formato + Ancho de columna (Alto de Fila), así como también, las equivalencias con respecto a Top y Left.


Gracias 

Gladiador


Publicado por: Gladiador
Fecha de publicación: 06/Septiembre/2022 a las 20:30
Hola, ofrezco una disculpa por no haber solicitado el cierre de este hilo.
Gracias



Imprimir página | Cerrar ventana