save as jpg macro

Hi all

I am noby about Macro. I have recorded a macro which is a one command and getting isometric view and save as jpg

However ı have an error. I am looking for your help even it is a simple solution.

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

Part.ShowNamedView2 "*Isometric", 7

swPart = swApp.OpenPart()

Set Part = Nothing

swApp.CloseDoc "Part11"

longstatus = Part.SaveAs3("C:\Users\suslu\Desktop\Part1.JPG", 0, 0)

End Sub

SolidworksApi macros