Zoom SolidWorks to actual part size on screen

Actual Size.swp

Dim swApp As Object
Option Explicit

Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swModView As SldWorks.ModelView        

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swModView = swModel.ActiveView
    
    swModView.Scale2 = 25 / 32.4
    swModel.GraphicsRedraw2
End Sub