Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment ajouter la pointe de la souris à une certaine forme dans Excel?

Dans de nombreux cas, vous devez attribuer une macro à une certaine forme afin d'exécuter la macro en cliquant dessus dans votre feuille de calcul. Après avoir attribué une macro à la forme, l'ajout de la pointe de la souris peut vous aider à vous rappeler ce que fait la forme lors d'une utilisation future. Cet article vous montre deux méthodes pour ajouter la pointe de la souris à une certaine forme dans Excel.

Ajouter la souris au-dessus de la pointe à une certaine forme en ajoutant un lien hypertexte
Ajouter la souris sur la pointe à une certaine forme avec le code VBA


Ajouter la souris au-dessus de la pointe à une certaine forme en ajoutant un lien hypertexte


Vous pouvez ajouter un lien hypertexte avec info-bulle vers une certaine forme dans la feuille de calcul. Veuillez faire comme suit.

1. Cliquez avec le bouton droit sur la forme dont vous avez besoin pour ajouter la pointe de la souris, puis cliquez sur Lien hypertexte dans le menu contextuel. Voir la capture d'écran:

2. dans le Insérer un lien hypertexte boîte de dialogue, cliquez sur le Info-bulle bouton. Et dans le Définir l'info-bulle du lien hypertexte boîte de dialogue, entrez le texte de l'info-bulle à afficher en survolant la forme à la souris. Cliquez enfin sur le OK bouton. Voir la capture d'écran:

3. Lorsqu'il revient au Insérer un lien hypertexte boîte de dialogue, cliquez sur le Favoris bouton. Entrez ensuite A1 dans la zone Type dans la zone de référence de cellule du Sélectionnez Placer dans le document boîte de dialogue, et enfin cliquez sur le OK .

4. Cliquez sur l' OK bouton dans le Insérer un lien hypertexte boîte de dialogue pour terminer la création du lien hypertexte.

Vous pouvez maintenant voir l'info-bulle s'afficher lorsque vous survolez la forme avec la souris.


Ajouter la souris sur la pointe à une certaine forme avec le code VBA

Vous pouvez facilement ajouter la pointe de la souris à une certaine forme après avoir exécuté le code VBA suivant.

1. Ouvrez la feuille de calcul contenant la forme sur laquelle vous afficherez la pointe de la souris lors du déplacement de la souris. Cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur Afficher le code dans le menu contextuel.

2. dans le Microsoft Visual Basic pour applications , veuillez copier le code VBA ci-dessous dans la fenêtre Code.

Code VBA 1: ajouter la souris sur la pointe à une certaine forme

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
    If Target.Address = Range("A1").Address Then
        Call MoveRow
    End If
End Sub

3. Cliquez insérer > Module. Entrez ensuite le code VBA ci-dessous dans la fenêtre Module.

Code VBA 2: ajouter la souris sur la pointe à une certaine forme

Sub Text()
'Updated by Extendoffice 2018/3/30
    Dim xShape As Shape
    Dim xRg As Range
    On Error Resume Next
    Application.EnableEvents = False
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    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

Notes:

1). Veuillez remplacer le "Cliquez pour exécuter la macro" et "Rectangle 4»Avec le texte de votre info-bulle et le nom de la forme donnée.
2). Remplacer "MoveRow" en ligne "Appeler MoveRow"au nom de la macro que vous avez attribué à la forme

3. appuie sur le F5 clé pour exécuter le code. Ensuite, la pointe d'écran spécifiée est ajoutée immédiatement à la forme donnée.


Articles connexes:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
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 · 2 years ago
    Convert your shape to an image. Images have tool tips.
  • To post as a guest, your comment is unpublished.
    Niall · 3 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 · 3 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 · 3 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 · 4 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 · 3 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 · 3 years ago
      I wish someone would solve this problem.
      • To post as a guest, your comment is unpublished.
        crystal · 3 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