Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
display gridlines
Morning all.
I have multiple worksheets that are displaying the gridlines. This appears to be fairly common across numerous workbooks, so I'd like to make a macro that will turn off the display gridlines. I recorded a macro that turned off the grid lines for a single worksheet, now I need to put in a for loop to iterate through all of the sheets in the file. I tried the following and it hangs up on the "If sh.DisplayGridlines = True Then" statement, stating it cannot perform this task-- "object does not support this property or method" a 438 error. Any ideas on how to make one that does work? Thank you. Sub Grids() ' ' grids Macro ' turn off grid lines ' For Each sh In ActiveWorkbook.Worksheets If sh.DisplayGridlines = True Then sh.DisplayGridlines = False End If Next ' ActiveWindow.DisplayGridlines = False End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
display gridlines
DisplaygridLines is a member of windows not a worksheet
ActiveWorkbook.Windows(1).DisplayGridlines = True "Steve" wrote: Morning all. I have multiple worksheets that are displaying the gridlines. This appears to be fairly common across numerous workbooks, so I'd like to make a macro that will turn off the display gridlines. I recorded a macro that turned off the grid lines for a single worksheet, now I need to put in a for loop to iterate through all of the sheets in the file. I tried the following and it hangs up on the "If sh.DisplayGridlines = True Then" statement, stating it cannot perform this task-- "object does not support this property or method" a 438 error. Any ideas on how to make one that does work? Thank you. Sub Grids() ' ' grids Macro ' turn off grid lines ' For Each sh In ActiveWorkbook.Worksheets If sh.DisplayGridlines = True Then sh.DisplayGridlines = False End If Next ' ActiveWindow.DisplayGridlines = False End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
display gridlines
Do not test:
Sub NoGrid() Dim s As Worksheet For Each s In Sheets s.Activate ActiveWindow.DisplayGridlines = False Next End Sub -- Gary''s Student - gsnu200907 "Steve" wrote: Morning all. I have multiple worksheets that are displaying the gridlines. This appears to be fairly common across numerous workbooks, so I'd like to make a macro that will turn off the display gridlines. I recorded a macro that turned off the grid lines for a single worksheet, now I need to put in a for loop to iterate through all of the sheets in the file. I tried the following and it hangs up on the "If sh.DisplayGridlines = True Then" statement, stating it cannot perform this task-- "object does not support this property or method" a 438 error. Any ideas on how to make one that does work? Thank you. Sub Grids() ' ' grids Macro ' turn off grid lines ' For Each sh In ActiveWorkbook.Worksheets If sh.DisplayGridlines = True Then sh.DisplayGridlines = False End If Next ' ActiveWindow.DisplayGridlines = False End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
got it... ok now
Scaratch my request.
I got it. Sub Grids() 'The purpose of this macro is to turn off grid lines on all worksheets ' in the file. For i = 1 To Sheets.Count With ActiveWindow If .DisplayGridlines = True Then .DisplayGridlines = False End If End With Next ' ActiveWindow.DisplayGridlines = False End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
display gridlines
Try it this way (it will hide the process from the user and keep the current
worksheet active).... Sub TurnGridLinesOff() Dim WS As Worksheet, SN As String Application.ScreenUpdating = False SN = ActiveSheet.Name For Each WS In Worksheets WS.Activate ActiveWindow.DisplayGridlines = False Next Worksheets(SN).Activate Application.ScreenUpdating = True End Sub -- Rick (MVP - Excel) "Steve" wrote in message ... Morning all. I have multiple worksheets that are displaying the gridlines. This appears to be fairly common across numerous workbooks, so I'd like to make a macro that will turn off the display gridlines. I recorded a macro that turned off the grid lines for a single worksheet, now I need to put in a for loop to iterate through all of the sheets in the file. I tried the following and it hangs up on the "If sh.DisplayGridlines = True Then" statement, stating it cannot perform this task-- "object does not support this property or method" a 438 error. Any ideas on how to make one that does work? Thank you. Sub Grids() ' ' grids Macro ' turn off grid lines ' For Each sh In ActiveWorkbook.Worksheets If sh.DisplayGridlines = True Then sh.DisplayGridlines = False End If Next ' ActiveWindow.DisplayGridlines = False End Sub |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
display gridlines
Thanks Rick,
It appears mine didn't work after all..... sigh... one day when I grow up, I want to know how to program..... whine....... Yours works...... "Rick Rothstein" wrote: Try it this way (it will hide the process from the user and keep the current worksheet active).... Sub TurnGridLinesOff() Dim WS As Worksheet, SN As String Application.ScreenUpdating = False SN = ActiveSheet.Name For Each WS In Worksheets WS.Activate ActiveWindow.DisplayGridlines = False Next Worksheets(SN).Activate Application.ScreenUpdating = True End Sub -- Rick (MVP - Excel) "Steve" wrote in message ... Morning all. I have multiple worksheets that are displaying the gridlines. This appears to be fairly common across numerous workbooks, so I'd like to make a macro that will turn off the display gridlines. I recorded a macro that turned off the grid lines for a single worksheet, now I need to put in a for loop to iterate through all of the sheets in the file. I tried the following and it hangs up on the "If sh.DisplayGridlines = True Then" statement, stating it cannot perform this task-- "object does not support this property or method" a 438 error. Any ideas on how to make one that does work? Thank you. Sub Grids() ' ' grids Macro ' turn off grid lines ' For Each sh In ActiveWorkbook.Worksheets If sh.DisplayGridlines = True Then sh.DisplayGridlines = False End If Next ' ActiveWindow.DisplayGridlines = False End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Display of gridlines | Excel Programming | |||
display gridlines with fill color | Excel Discussion (Misc queries) | |||
gridlines won't display | Excel Discussion (Misc queries) | |||
my excel worksheet will not display gridlines | Excel Worksheet Functions | |||
How to display gridlines at irregular intervals? | Charts and Charting in Excel |