मैं सक्रिय विन्डो

Question

का उपयोग किए बिना एक्सेल में एक्सेल में ग्रिडलाइन कैसे बंद कर सकता हूं मेरे पास एक्सेल 2013 पर एक वीबीए मैक्रो है जो एक अलग एक्सेल रिपोर्ट उत्पन्न करता है। इस एक्सेल रिपोर्ट में बनाई गई रिपोर्ट में, मैं ग्रिडलाइन को बंद करना चाहता हूं।

कोड है कि मैं पार चलो ऐसा होता है बनाने के लिए का केवल कुछ भाग,

ActiveWindow.DisplayGridlines = False 

हालांकि, इस एक्सेल पृष्ठभूमि यानी में उत्पन्न होता है नीचे के रूप में है

Dim appObject As New Excel.Application 
appObject.Visible = False 

इस रिपोर्ट है कि इसका मतलब है ActiveWindow नहीं है। ActiveWindow ऑब्जेक्ट का उपयोग किए बिना ग्रिडलाइन को बंद करने का कोई वैकल्पिक तरीका है?

Answer 1

यदि आपके पास कार्यपुस्तिका का संदर्भ है, तो आप अपने संग्रह में सभी विंडोज़ को फिर से सक्रिय कर सकते हैं। यदि आवेदन दिखाई नहीं देता है, तो आप केवल 1 मिलना चाहिए, लेकिन यह मुश्किल कोड को एक सूचकांक कोशिश कर रहा से सुरक्षित है:

Private Sub ToggleGridLines(target As Workbook) 
    Dim wnd As Window 
    For Each wnd In target.Windows 
     wnd.DisplayGridlines = False 
    Next 
End Sub 

नोट इस कार्यपुस्तिका में सक्रिय कार्यपत्रक पर प्रदर्शन बदल सेट हो जाएगा कि - ऐसा क्यों है खिड़की की एक संपत्ति और वर्कशीट मेरे बाहर नहीं है।

संपादित करें:

साझा किए गए लिंक @Tim के लिए धन्यवाद, मुझे एहसास हुआ कि मैं पूरी तरह से बंद स्थान दिया गया था SheetViews संग्रह। यह एक मनमाना Worksheet वस्तु के लिए ग्रिडलाइनें बंद कर देना चाहिए:

Private Sub TurnOffGridLines(target As Worksheet) 
    Dim view As WorksheetView 
    For Each view In target.Parent.Windows(1).SheetViews 
     If view.Sheet.Name = target.Name Then 
      view.DisplayGridlines = False 
      Exit Sub 
     End If 
    Next 
End Sub 

Answer 2

ActiveWindow विंडोज ऑब्जेक्ट संग्रह का सदस्य है। किसी भी संग्रह के साथ, सक्रिय विंडो निर्दिष्ट करके बस वास्तविक विंडो को नाम से संदर्भित करें। उदाहरण के लिए

Windows("My Workbook.xls").DisplayGridlines = False