大郎用巨集無法控制第2項的影像品質要如何修改(藍色段),或是如何製作
' ******************************************************************************
' C:\Users\武大郎\AppData\Local\Temp\swx1056\Macro1.swb - macro recorded on 05/28/20 by 武大郎
' ******************************************************************************
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
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swImageQualityShaded, 0, swImageQualityShaded_e.swShadedImageQualityCustom)
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swImageQualityWireframeValue, 0, 80)
End Sub