Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Zoom Property - 1004 Error
I have a macro that takes the column widths and row heights from the
worksheet I run the macro from and applies them to all the other worksheets that aren't named a certain name. I would like to include the zoom property in this macro, but I'm getting a 1004 error - Unable to set the Zoom property of the PageSetup class. The code names the active worksheet mastersht, and then goes to each sht not named a particular name. It set the columns and rows and then bombs out on the zoom property. Here's the code: Dim Answer, Col, Row, Sht Dim MasterRngC As Range Dim MasterRngR As Range Dim MasterRngZ As String Dim MasterSht As String Dim Msg As String Msg = "Do you want to apply this Worksheet's Column" & vbCrLf _ & "Widths and Row Heights to all the P# Worksheets?" Answer = MsgBox(Msg, vbInformation + vbYesNo) If Answer = vbNo Then Exit Sub MasterSht = ActiveSheet.Name Set MasterRngC = ActiveSheet.Range("A1", "K1") Set MasterRngR = ActiveSheet.Range("A1", "A37") MasterRngZ = ActiveSheet.PageSetup.Zoom For Each Sht In Worksheets If Sht.Name < MasterSht Then If Sht.Name < "Index" Then For Each Col In MasterRngC Sht.Range(Col.Address).ColumnWidth = Col.ColumnWidth Next Col For Each Row In MasterRngR Sht.Range(Row.Address).RowHeight = Row.RowHeight Next Row ActiveSheet.PageSetup.Zoom = MasterRngZ End If End If Next Sht End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime Error 1004 Unable to set the top property of the picture c | Excel Discussion (Misc queries) | |||
Error 1004: Unable to get the axis property | Charts and Charting in Excel | |||
Run Time Error 1004 Unable to set hidden property | Excel Programming | |||
Run-time Error '1004' Unable to get the findnext property... | Excel Programming | |||
Zoom property error | Excel Programming |