मुख्य सामग्री पर जाएं

एक्सेल में टिप पर माउस को एक निश्चित आकार में कैसे जोड़ें?

लेखक: सिलुविया अंतिम संशोधित: 2020-07-22

कई मामलों में, आपको मैक्रो को एक निश्चित आकार देने की आवश्यकता होती है ताकि मैक्रो को अपनी वर्कशीट में क्लिक करके चलाया जा सके। आकृति को मैक्रो निर्दिष्ट करने के बाद, टिप पर माउस जोड़ने से आपको यह याद दिलाने में मदद मिल सकती है कि भविष्य में उपयोग में आकृति क्या करती है। यह आलेख आपको एक्सेल में एक निश्चित आकार में टिप पर माउस जोड़ने के दो तरीके दिखाता है।

हाइपरलिंक जोड़कर एक निश्चित आकार में टिप पर माउस जोड़ें
VBA कोड के साथ टिप पर माउस को एक निश्चित आकार में जोड़ें


हाइपरलिंक जोड़कर एक निश्चित आकार में टिप पर माउस जोड़ें

आप वर्कशीट में एक निश्चित आकार में स्क्रीनटिप के साथ हाइपरलिंक जोड़ सकते हैं। कृपया निम्नानुसार करें.

1. जिस आकृति को आप जोड़ना चाहते हैं उस पर टिप पर माउस से राइट क्लिक करें, फिर क्लिक करें हाइपरलिंक राइट-क्लिक मेनू से. स्क्रीनशॉट देखें:

2। में हाइपरलिंक डालें संवाद बॉक्स में, क्लिक करें स्क्रीन टिप बटन। और इसमें हाइपरलिंक स्क्रीनटिप सेट करें संवाद बॉक्स में, स्क्रीन टिप टेक्स्ट दर्ज करें जिसे आपको माउस द्वारा आकृति पर मँडराते समय प्रदर्शित करना है। अंत में क्लिक करें OK बटन। स्क्रीनशॉट देखें:

3. जब यह वापस आता है हाइपरलिंक डालें संवाद बॉक्स में, क्लिक करें बुकमार्क बटन। फिर सेल रेफरेंस बॉक्स में टाइप में A1 दर्ज करें दस्तावेज़ में स्थान चुनें संवाद बॉक्स, और अंत में क्लिक करें OK बटन.

4. क्लिक करें OK में बटन हाइपरलिंक डालें हाइपरलिंक निर्माण समाप्त करने के लिए संवाद बॉक्स।

अब आप माउस द्वारा आकृति पर मँडराते समय प्रदर्शित स्क्रीन टिप देख सकते हैं।


VBA कोड के साथ टिप पर माउस को एक निश्चित आकार में जोड़ें

निम्नलिखित VBA कोड को चलाने के बाद आप आसानी से टिप पर माउस को एक निश्चित आकार में जोड़ सकते हैं।

1. वर्कशीट खोलें जिसमें वह आकृति है जिसे आप माउस को ऊपर ले जाने पर टिप प्रदर्शित करेंगे। शीट टैब पर राइट क्लिक करें और फिर संदर्भ मेनू से कोड देखें पर क्लिक करें।

2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए VBA कोड को कोड विंडो में कॉपी करें।

वीबीए कोड 1: एक निश्चित आकार में टिप पर माउस जोड़ें

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। क्लिक करें सम्मिलित करें > मॉड्यूल. फिर मॉड्यूल विंडो में नीचे VBA कोड दर्ज करें।

वीबीए कोड 2: एक निश्चित आकार में टिप पर माउस जोड़ें

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

नोट्स:

1). कृपया " को प्रतिस्थापित करेंमैक्रो चलाने के लिए क्लिक करें" तथा "आयत 4” आपके स्क्रीन टिप टेक्स्ट और निश्चित आकृति के नाम के साथ।
2). प्रतिस्थापित करें "मूवरो" इन ​​- लाइन "मूवरो को कॉल करें"आपके द्वारा आकार को दिए गए मैक्रो नाम के लिए

3। दबाएं F5 कोड चलाने की कुंजी. फिर निर्दिष्ट स्क्रीन टिप को तुरंत निश्चित आकार में जोड़ दिया जाता है।


संबंधित लेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Convert your shape to an image. Images have tool tips.
This comment was minimized by the moderator on the site
Doesn't work..... if there is a hyperlink associated with the shape then the macro will not run....
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Dear Niall,
The code works well in my case. Can you provide your Office version? Thank you for your comment.
This comment was minimized by the moderator on the site
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Ą
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
I wish someone would solve this problem.
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations