ActiveWindow

Question

'u kullanmadan VBA kullanarak excel'de kılavuz çizgileri nasıl kapatabilirim Excel 2013'te bir Excel raporu üzerinde ayrı bir excel raporu oluşturan bir VBA makrosu var. Oluşturulan bu excel raporunda GridLines'i kapatmak istiyorum.

Ben Böyle yapmak rastlamak kod tek parça, Ancak bu excel arka yani oluşturulur

ActiveWindow.DisplayGridlines = False 

altında bu raporun demektir

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

olduğunu ActiveWindow değil. ActiveWindow nesnesini kullanmadan kılavuz çizgileri kapatmanın alternatif bir yolu var mı?

Answer 1

Çalışma kitabına bir başvurunuz varsa, koleksiyondaki tüm Windows üzerinde yineleyebilirsiniz. Uygulama görünmüyorsa, sadece 1 almalısınız ama zor koduna bir dizin daha güvenli olur: Bu çalışma kitabındaki etkin çalışma sayfasında görüntüsünü değiştirmek set olacağı

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

Not - Bu yüzden Pencerenin bir özelliği ve çalışma sayfası bana ait değil.

DÜZENLEME: paylaşılan @Tim Bağlantıya

sayesinde ben tamamen SheetViews koleksiyonunu kapalı aralıklı fark etti. Bu keyfi bir Worksheet nesne için kılavuz çizgileri kapatmak olmalıdır:

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 nesne koleksiyonunun bir üyesidir. Herhangi bir koleksiyonda olduğu gibi, etkin pencereyi belirtmek yerine, gerçek pencereyi isme göre adlandırın. örn.