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

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

Outcomes