** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Imagen/Forma desplazable
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Imagen/Forma desplazable

 Responder Responder
Autor
Mensaje
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 195
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Gladiador Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Imagen/Forma desplazable
    Enviado: 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
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5814
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita AnSanVal Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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.

Mi sitio_web con ejemplos Excel.
Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: La Gloria
Estado: Sin conexión
Puntos: 3699
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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é.



Editado por lbauluz - 01/Septiembre/2021 a las 14:21
El Búho es un pajarraco
Arriba
Gladiador Ver desplegable
Habitual
Habitual
Avatar

Unido: 22/Junio/2006
Localización: Venezuela
Estado: Sin conexión
Puntos: 195
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Gladiador Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable