Como poner un boton de enlace en excel

30/11/2006 - 23:07 por CROBER | Informe spam
Estimados Cogruperos.
Quiero poner en una hoja de Excel un botón que me lleve a otro lugar de otra
hoja (enlace o hipervínculo creo que se llama) dentro del mismo libro.
Se como programar un hipervínculo dentro de una hoja de Excel, lo que no se
es como vincularlo eso a la forma de un botón.
¿Cómo podría programar eso?.

Muchas gracias por vuestra ayuda al responder.
Salu2 cibernéticos

=CROBER

email: crober@telefonica.net
==

Preguntas similare

Leer las respuestas

#1 ElAlumno
30/11/2006 - 23:43 | Informe spam
Hola amigo CROBER:

Envié a tu correo un pequeño manual que trata el tema que te
inquieta.

Saludos,
Respuesta Responder a este mensaje
#2 CROBER
01/12/2006 - 00:23 | Informe spam
Muchas gracias, me ha venido de fábula.
Es una gozada contar con gente como tu.

=CROBER

email:
="ElAlumno" escribió en el mensaje
news:
Hola amigo CROBER:

Envié a tu correo un pequeño manual que trata el tema que te
inquieta.

Saludos,
Respuesta Responder a este mensaje
#3 ElAlumno
04/12/2006 - 02:52 | Informe spam
Hola CROBER:

-He enviado a tu correo un archivo de Excel (con una muy modesta macro)
que permite "Crear falsos botones" (es una trivia de engaño optico),
los cules utilizo para mis hipervinculos dentro de mis hojas de Excel

-Para los demás amigos, el código de "mi trivia" es el siguiente:

Sub BotonFalso()
' BotonFalso Macro
' Macro grabada el 03-Dic-2006 por -ElAlumno-
Range("B4:F18").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("C6:D7").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 16
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 16
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("C10:D11").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 16
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 16
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("C14:D15").Select
ActiveCell.FormulaR1C1 = "'¡ ¡ ¡ Diseña el tuyo ! ! !"
Range("C14:D15").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Negrita"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = 2
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

Igualmente la siguiente pequeña macro "borra y prepara" el rango para
repetir la creación de los falsos botones

Sub Borrar()
' Borrar Macro
' Macro grabada el 03-Dic-2006 por -ElAlumno-
Range("A3:G19").Select
Range("G19").Activate
Selection.Clear
Range("A1").Select
End Sub

Saludos desde Bogotá, Colombia!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida