Hello,
We have been using a sheet swap macro for years. We found that this macro actually renames the sheets to Sheet1 this has unintended consequences when making PDFs.
Please help us modify this code so the sheets keep the name they had before the macro is run. I have tried using SheetName in place of "Sheet1" the code doesn't error but it also doesn't run.
Thank You in advance
Mike
' ******************************************************************************
' C:\Users\deleom\AppData\Local\Temp\swx7152\Macro1.swb - macro recorded on 09/26/16 by deleom
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Name1 As String
Dim Scale1 As Double
Dim Scale2 As Double
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Scale1 = CurentScale1
Scale2 = CurentScale2
boolstatus = Part.Extension.SelectByID2("Annotations", "DCABINET", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
boolstatus = Part.SetupSheet5("Sheet1", 12, 12, Scale1, Scale2, False, "BAX_D_ASSEMBLY.slddrt", 0.8636, 0.5588, "Default", True)
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
End Sub
SolidworksApi macros