Application.ExecuteExcel4Macro : ExecuteExcel4Macro « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. ExecuteExcel4Macro

Application.ExecuteExcel4Macro

 
Sub Macro1_Version4()
    Dim St As String
    St = "PAGE.SETUP(, , " & _
                     "1.5, 1.5, 1.5, 1.5" & _
                     ", 0, False, False, False, 1, 1, True, 1, 1,False, , " & _
                     "1, 1" & _
                     ", False)"
    Application.ExecuteExcel4Macro St
End Sub
                           

 

Related examples in the same category