AnsweredAssumed Answered

save as jpg macro

Question asked by Seckin Uslu on Feb 24, 2017
Latest reply on Feb 27, 2017 by Seckin Uslu

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 = _




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