Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Checkboxes disappear after macro is run
Hi
I have a macro that loops through a bunch of checkboxes to see if they are checked or not. If they are not checked the row it sits on plus the row below is hidden. Also the unchecked checkbox is also hidden. After this I call on print preview. [code] Sub print_checked() Dim obj As OLEObject Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects 'first check to see if the checkbox really is a checkbox If TypeOf obj.Object Is MSForms.CheckBox Then 'then if the checkbox is not checked i hide rows and the checkbox itself If obj.Object.Value = False Then ActiveSheet.Rows(obj.TopLeftCell.row).EntireRow.Hi dden = True ActiveSheet.Rows(obj.TopLeftCell.row + 1).EntireRow.Hidden = True obj.Visible = False End If End If Next obj Application.ScreenUpdating = True ActiveWindow.SelectedSheets.PrintPreview End Sub When printing is done I wish to restore the sheet to its orginal look with all rows and checkboxes visible again. Therefore I have this code: Code: Sub restore_from_print() Dim obj As OLEObject Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If TypeOf obj.Object Is MSForms.CheckBox Then If obj.Object.Value = False Then ActiveSheet.Rows(obj.TopLeftCell.row).EntireRow.Hi dden = False ActiveSheet.Rows(obj.TopLeftCell.row + 1).EntireRow.Hidden = False obj.Visible = True End If End If Next obj Application.ScreenUpdating = True End Sub BUT neither the rows or the checkboxes get visible, at least not all of them. Sometimes it seems a couple of rows are shown. If I run the code without calling on print preview the restore-code seems to work fine. ?! What am I doing wrong here? Regards Jonas |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to clear checkboxes | Excel Worksheet Functions | |||
Multiple checkboxes, one macro? | Excel Programming | |||
Worksheet Buttons disappear after Macro runs! | Excel Programming | |||
Enable & Disable Macro popup disappear | Excel Programming | |||
Macro buttons disappear when I print | Excel Programming |