Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo agregar el mouse sobre la punta a una forma determinada en Excel?

En muchos casos, debe asignar macro a una determinada forma para ejecutar la macro haciendo clic en su hoja de cálculo. Después de asignar macro a la forma, agregar el mouse sobre la punta puede ayudar a recordar lo que hace la forma en el uso futuro. Este artículo muestra dos métodos para agregar el mouse sobre la punta a una forma determinada en Excel.

Agregue el mouse sobre la punta a una forma determinada con la adición de hipervínculo

Agregue el mouse sobre la punta a una forma determinada con código VBA

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutilizar cualquier cosa: Agregue las fórmulas más utilizadas o complejas, gráficos y cualquier otra cosa a sus favoritos, y reutilícelos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Enviar correos electrónicos personalizados a múltiples destinatarios a granel.
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil implementación en su empresa u organización.

Agregue el mouse sobre la punta a una forma determinada con la adición de hipervínculo


Puede agregar un hipervínculo con información de pantalla a una determinada forma en la hoja de trabajo. Por favor haz lo siguiente.

1. Haga clic con el botón derecho en la forma que necesita para agregar el mouse sobre la punta, luego haga clic hiperenlace desde el menú contextual. Ver captura de pantalla:

2. En el Insertar hipervínculo cuadro de diálogo, haga clic en Información en pantalla botón. Y en el Establecer información de pantalla de hipervínculo cuadro de diálogo, ingrese el texto de sugerencia de pantalla que necesita para mostrar mientras se desplaza sobre la forma con el mouse. Finalmente haga clic en OK botón. Ver captura de pantalla:

3. Cuando vuelve al Insertar hipervínculo cuadro de diálogo, haga clic en Guardar botón. Luego ingrese A1 en el tipo en el cuadro de referencia de la celda del Seleccione el lugar en el documento cuadro de diálogo, y finalmente haga clic en OK botón.

4. Haga clic en el OK botón en el Insertar hipervínculo cuadro de diálogo para finalizar la creación del hipervínculo.

Ahora puede ver la punta de la pantalla que se muestra al pasar el ratón sobre la forma.


Agregue el mouse sobre la punta a una forma determinada con código VBA

Puede agregar fácilmente el mouse sobre la punta a una forma determinada después de ejecutar el siguiente código VBA.

1. Abra la hoja de trabajo que contiene la forma en la que se mostrará la sugerencia al mover el mouse. Haga clic con el botón derecho en la pestaña de la hoja y luego haga clic en Ver código en el menú contextual.

2. En el Microsoft Visual Basic para aplicaciones ventana, copie el siguiente código de VBA en la ventana de Código.

Código VBA 1: agregue el mouse sobre la punta a una forma determinada

Private Sub Worksheet_SelectionChange (ByVal Target As Range) 'Actualizado por Extendoffice 2018 / 3 / 30 If Target.Address = Range ("A1"). Dirección Luego llame a MoveRow End If End Sub

3. Hacer clic recuadro > Módulo. Luego ingrese debajo del código VBA en la ventana del Módulo.

Código VBA 2: agregue el mouse sobre la punta a una forma determinada

Texto secundario () 'Actualizado por Extendoffice 2018 / 3 / 30 Dim xShape As Shape Dim xRg As Range On Error Reanudar Next Application.EnableEvents = False Set xShape = ActiveSheet.Shapes ("Rectangle 4") Si NotShape no es nada, entonces ActiveSheet. Hyperlinks.Add xShape, "", "A1", Información de pantalla: = "Haga clic para ejecutar Macro" End If If ActiveSheet.Hyperlinks (1) .SubAddress = "A1" Luego llame a MoveRow End If Application.EnableEvents = True End Sub

Notas:

1). Por favor reemplace el "Haga clic para ejecutar Macro"Y"rectángulo 4"Con su texto de sugerencia de pantalla y el nombre de la forma determinada.

2). Reemplazar "MoveRow" en línea "Llamar a MoveRow"al nombre de macro que ha asignado a la forma

3. presione el F5 clave para ejecutar el código. A continuación, la punta de pantalla especificada se agrega a la forma determinada de inmediato.


Artículos relacionados:


Kutools for Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Insertar rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Admite Office / Excel 2007-2019 y 365. Soporta todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas de prueba gratuita de 30-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    David Darby · 1 months ago
    Convert your shape to an image. Images have tool tips.
  • To post as a guest, your comment is unpublished.
    Niall · 1 years ago
    Doesn't work..... if there is a hyperlink associated with the shape then the macro will not run....
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Niall,
      Sorry for the mistake. Please try as below to solve the problem.

      Step 1:
      In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Address = Range("A1").Address Then
      Call MoveRow
      End If
      End Sub

      Step 2:
      Open the Module code window, copy below code into the Module window.
      Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
      Thank you for your comment.

      Sub Text()
      Dim xShape As Shape
      Dim xRg As Range
      On Error Resume Next
      Application.EnableEvents = False
      Set xShape = ActiveSheet.Shapes("Rectangle 1")
      If Not xShape Is Nothing Then
      ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
      End If
      If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
      Call MoveRow
      End If
      Application.EnableEvents = True
      End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Niall,
      The code works well in my case. Can you provide your Office version? Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Evaldas · 2 years ago
    Hello,

    Sub Test()
    On Error Resume Next
    Dim xShape As Shape
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    If Not xShape Is Nothing Then _
    ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:="Click to run Macro "
    End Sub

    Thank code works great, but it removes Assigned macro.

    When i use Screen Tip and press on shape Macro Deosn't work.

    Is any way to fix that? Use Screen tip on shape and keep macro working?

    Thank youĄ
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Evaldas,
      Sorry for the mistake. Please try as below to solve the problem.

      Step 1:
      In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Address = Range("A1").Address Then
      Call MoveRow
      End If
      End Sub

      Step 2:
      Open the Module code window, copy below code into the Module window.
      Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
      Thank you for your comment.

      Sub Text()
      Dim xShape As Shape
      Dim xRg As Range
      On Error Resume Next
      Application.EnableEvents = False
      Set xShape = ActiveSheet.Shapes("Rectangle 1")
      If Not xShape Is Nothing Then
      ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
      End If
      If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
      Call MoveRow
      End If
      Application.EnableEvents = True
      End Sub
    • To post as a guest, your comment is unpublished.
      Ringleader · 1 years ago
      I wish someone would solve this problem.
      • To post as a guest, your comment is unpublished.
        crystal · 1 years ago
        Good Day,
        Please try as below to solve the problem.

        Step 1:
        In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Address = Range("A1").Address Then
        Call MoveRow
        End If
        End Sub

        Step 2:
        Open the Module code window, copy below code into the Module window.
        Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
        Thank you for your comment.

        Sub Text()
        Dim xShape As Shape
        Dim xRg As Range
        On Error Resume Next
        Application.EnableEvents = False
        Set xShape = ActiveSheet.Shapes("Rectangle 1")
        If Not xShape Is Nothing Then
        ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
        End If
        If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
        Call MoveRow
        End If
        Application.EnableEvents = True
        End Sub