मैक 2011 के लिए Word में स्थिति पट्टी में ज़ूम स्लाइडर में प्लस / माइनस बटन जोड़ें

0

माइक्रोसॉफ्ट वर्ड में (विंडोज के लिए) 2010 में स्टेटस बार (नीचे दाएं) में जूम स्लाइडर के अलावा प्लस और माइनस बटन होते हैं जो कि 10% की छलांग लगाकर अगले 10% तक जूम इन / आउट करने की अनुमति देते हैं।

[Link to Screenshot of Word Windows 2010](https://dl.dropboxusercontent.com/u/42384796/ZoomSliderWindowsWord2010.png)

मैक 2011 के लिए माइक्रोसॉफ्ट वर्ड में एक ही स्लाइडर है, लेकिन वे बटन नहीं हैं। मुझे लगता है कि स्लाइडर का उपयोग करना बहुत मुश्किल है, ज़ूम तेजी से बढ़ने के लिए कूदता है और "ठीक-ठीक" ज़ूमिंग संभव नहीं है (आपके लैपटॉप पर)।

[Link to Screenshot of Word for Mac 2011](https://dl.dropboxusercontent.com/u/42384796/ZoomSliderMacWord2011.png)

क्या किसी को पता है कि मैं उन बटनों को प्राप्त कर सकता हूं और कैसे?

एक समाधान के रूप में एक का उपयोग कर सकते हैं cmd - ctrl -एक माउस के साथ ऊपर / नीचे घूमना या cmd - ctrl -ट्वो-फिंगर-स्वाइप एक ट्रैकपैड पर ऊपर और नीचे ज़ूम इन और आउट करने के लिए।

macos microsoft-word

— C König
स्रोत

2

वर्कअराउंड के रूप में, संभवत: ज़ूम इन / आउट कार्यक्षमता वाले मेनू आइटम हैं। शायद यह फ़ोकस करने के लिए स्लाइडर पर क्लिक करना संभव है, फिर इसे स्थानांतरित करने के लिए तीर कुंजियों को दबाएं।

— Daniel Beck

वहाँ काम कर रहे हैं (मैं सवाल में एक जोड़ा), लेकिन तीर कुंजी चाल मेरे लिए काम नहीं करता है।

— C König

2

सबसे अच्छा मैं नीचे VBA बना सकता हूं और कीस्ट्रोक्स और / या बटन असाइन कर सकता हूं। यह आपको स्लाइडर के पास बटन नहीं देता है (एक टूलबार एक फ्लोटिंग विंडो होगी और जब आप मुख्य विंडो का आकार बदलेंगे तो यह नहीं चलेगा), लेकिन आप मानक टूलबार में ज़ूम ड्रॉपडाउन के दोनों ओर एक बटन लगा सकते हैं। यहां तक कि करने के लिए जो मुझे करना पड़ा

मैक्रोज़ बनाएँ (कहते हैं, Normal.dotm में)
व्यू-टूलबार- & gt; में जाएं टूलबार और मेनू को अनुकूलित करें ...- & gt; टूलबार और मेनू
एक नए (अस्थायी) टूलबार के लिए "नया ..." पर क्लिक करें। डिफ़ॉल्ट नाम ठीक है।
संवाद बॉक्स में कमांड्स टैब पर क्लिक करें
श्रेणियों के अंतर्गत, मैक्रोज़ चुनें
सूची में प्रत्येक मैक्रो को दाईं ओर स्थित करें और उसे नए पर खींचें उपकरण पट्टी
प्रत्येक नए "बटन" पर राइट क्लिक करें (जो मैक्रो नाम दिखाएगा) और
- गुण क्लिक करें ...
- शीर्ष बाईं ओर ड्रॉपडाउन से एक आइकन चुनें (मैंने तीर का उपयोग किया था पंक्ति 5 के बाईं ओर)
- दृश्य में: ड्रॉपडाउन, "डिफ़ॉल्ट शैली" चुनें
फिर प्रत्येक तीर को मानक में उपयुक्त स्थान पर खींचें उपकरण पट्टी
अस्थायी टूलबार हटाएं

Word की ईवेंट प्रोग्रामिंग स्पष्ट रूप से बेहतर हो सकती है क्योंकि तब भी, जब आप ज़ूम बदलते हैं, ज़ूम ड्रॉपडाउन मान तब तक अपडेट नहीं होते हैं जब तक आप फिर से दस्तावेज़ में क्लिक नहीं करते हैं (जबकि तल पर स्लाइडर पर मूल्य तुरंत अपडेट होता है)।

मैक्रो कोड ...

Sub zoomIn10()
On Error Resume Next
With ActiveWindow.ActivePane.View.Zoom
  .Percentage = .Percentage + 10
End With
End Sub

Sub zoomOut10()
On Error Resume Next
With ActiveWindow.ActivePane.View.Zoom
  .Percentage = .Percentage - 10
End With
End Sub

— C König
स्रोत

आपके उत्तर के लिए धन्यवाद, यह मेरे लिए काम करता है। मैंने एक नया (अस्थायी) टूलबार बनाने का चरण जोड़ा। एक बार मानक टूलबार में बटन के लुक को मैं संपादित क्यों नहीं कर सकता ..? मेरे लिए, दोनों स्थानों पर तुरंत ज़ूम स्तर अपडेट होता है (मानक टूलबार के साथ-साथ स्थिति पट्टी में ज़ूम पुल डाउन मेनू)। हालांकि यह बिल्कुल वैसा नहीं है जैसा मैं देख रहा था, यह अभी भी ज़ूम इन और आउट करना बहुत आसान बनाता है इसलिए मैं आपके समाधान को स्वीकार कर रहा हूं। धन्यवाद!

— C König

उपयोगी संपादन, धन्यवाद। मुझे नहीं पता कि आप उस बिंदु पर बटन उपस्थिति क्यों संपादित नहीं कर सकते हैं, लेकिन यदि आप बटन को स्वरूपण पट्टी पर रखते हैं, तो आप इसे तब तक बदल सकते हैं जब तक आप बार को अनडॉक नहीं करते हैं, इसलिए यह निर्णय लेना प्रतीत होता है कारक। आप U.I. के माध्यम से तैरने के लिए मानक पट्टी सेट नहीं कर सकते। AFAICS।

0

न्यूनतम / अधिकतम ज़ूम अनुपात को ध्यान में रखें (क्योंकि न्यूनतम ज़ूम अनुपात 10% और अधिकतम 500% है। स्क्रिप्ट सुनिश्चित करती है कि यह सीमा से अधिक नहीं होगी):

Sub Edit_ZoomIn()
    On Error Resume Next
    Dim originalZoom As Integer 'variable for original zoom
    Dim targetZoom As Integer
    originalZoom = ActiveDocument.ActiveWindow.View.Zoom.Percentage 'get current zoom
    targetZoom = originalZoom + 10
    If targetZoom > 500 Then
        targetZoom = 500
    End If
    ActiveDocument.ActiveWindow.View.Zoom.Percentage = targetZoom
End Sub

Sub Edit_ZoomOut()
    On Error Resume Next
    Dim originalZoom As Integer 'variable for original zoom
    Dim targetZoom As Integer
    originalZoom = ActiveDocument.ActiveWindow.View.Zoom.Percentage 'get current zoom
    targetZoom = originalZoom - 10
    If targetZoom < 10 Then
        targetZoom = 10
    End If
    ActiveDocument.ActiveWindow.View.Zoom.Percentage = targetZoom
End Sub

Sub Edit_Zoom0()
    On Error Resume Next
    ActiveDocument.ActiveWindow.View.Zoom.Percentage = 100
End Sub

— Jerry T
स्रोत

क्या आप अपने उत्तर में कोड के लिए अधिक संदर्भ प्रदान कर सकते हैं?

— Worthwelle

याद दिलाने के लिए धन्यवाद। कुछ टिप्पणी जोड़ें।

— Jerry T