Imagen que me siga a traves de todo el documento

18/05/2009 - 21:38 por Nubecita | Informe spam
Necesito poner una imagen con un hiperlink, pero quiero tenerla disponible en
todo momento, cuando me desplace leyendo a traves del documento quiero que se
mueva conmigo, no que tenga que devolverme para accesar el link.
 

Leer las respuestas

#1 Héctor Miguel
19/05/2009 - 01:31 | Informe spam
hola (...), ?????

Necesito poner una imagen con un hiperlink, pero quiero tenerla disponible en todo momento
cuando me desplace leyendo a traves del documento quiero que se mueva conmigo
no que tenga que devolverme para accesar el link.



op1: asignale al hipervinculo una macro (y tambien o mejor) un atajo de teclado -?-
op2: mueve la figura a la celda 'A1' (y ajusta sus dimensiones a la figura)
... selecciona la celda 'B2' y usa (menu) ventana / inmovilizar paneles -?-
(la figura permanecera siempre visible si la colocaste en 'A1')
op3: puedes hacer que la figura/boton te siga segun vayas avanzando/retrocediendo por la hoja (p.e.)
usando sus propiedades; "TopLeftCell", "Top"; y "Left", podras cambiar su ubicacion dentro de la hoja.
para mantenerlo ubicado (p.e.) en la columna 2 y la fila 2 del "area visible" (y flotante) de la hoja ...
-> te paso un ejemplo al final del presente.

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

copia/pega las siguientes lineas:
= en el modulo de codigo de esa hoja =Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dentro_de As String, Debe_estar_en As String
Dentro_de = ActiveWindow.VisibleRange.Address
Debe_estar_en = Range(Dentro_de).Cells(2, 2).Address
With ActiveSheet.Shapes("PON aqui el nombre de tu figura") ' <= MODIFICA el nombre '
If .TopLeftCell.Address = Debe_estar_en Then Exit Sub
.Left = Range(Debe_estar_en).Left
.Top = Range(Debe_estar_en).Top
End With
End Sub

notas:
1) implica cambiar la seleccion de la celda activa (con el mouse o teclado)
2) si el desplazamiento ocurre por barras / rueda del mouse... funcionara HASTA que suceda lo anterior
(si lo prefieres, llamando a las API's o usando el Scripting podrias detectar el evento Scroll por barra/s / mouse)
3) si la hoja tiene paneles fijos, entonces "Debe_estar_en (...) Cells(2, 2).Address" APLICARA al panel flotante

(creo que) de momento, lo anterior te debera funcionar bien -con las salvedades mencionadas-

Preguntas similares