Macro to change sheet format on one drawing

Hi Gillean,

Try attached.

1. Replace "Your_Template_Name" with the name (just name) with your template.

2. Replace "Path_of_Sheet_Template" with the full path of your sheet template.

3. You may also have to change few parameters in the line 'swDraw.SetupSheet5'.

Regards,

Gillean

You want to change sheet format on all sheets or just on current sheet?

I use this one every day and it works awesome, written by Deepak Gupta and edited by Garrett Hansen

Gillean,

I think you're totally confused and go around a loop with few different macros provided here and we just jumped in the middle and guided you to different directions. I think you'd better stay with one simple macro and get it work first 

Here is how it works:

1) Open a drawing, select sheet and right click and select properties ...

here is what you'll see

2) the sheet format  in this dialog box is the one being used in the drawing.  It might be the  same or older the sheet format template. Assume it's older than the sheet format template, you can replace the sheet format being used  by selecting a new sheet format template using the browser and reload the new template into your drawing.

Above steps are  how to replace the sheet format manually. A macro is just combing all steps above into one

Here is the simple code from API help:

Do this: copy the sheet format path in  your drawing and replace "C:\ProgramData\SolidWorks\SOLIDWORKS 2016\lang\english\sheetformat\b-landscape.slddrt" with your path and run this code:

'--------------------------------------------------------

' Preconditions:

' 1. Verify that the specified sheet format template exists.

' 2. Open install_dir\samples\tutorial\api\2012-sm.slddrw.

'

' Postconditions:

' 1. Changes the sheet format's paper size and template.

' 2. Examine the drawing.

'

' NOTE: Because the drawing is used elsewhere, do not save

' changes.

'--------------------------------------------------------

Option Explicit

Sub main()

    Const sTemplatePath As String = "C:\ProgramData\SolidWorks\SOLIDWORKS 2016\lang\english\sheetformat\b-landscape.slddrt"
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swDraw As SldWorks.DrawingDoc
    Dim swSheet As SldWorks.Sheet
    Dim bRet As Boolean    

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel
    Set swSheet = swDraw.GetCurrentSheet

    bRet = swDraw.SetupSheet4(swSheet.GetName, swDwgPaperBsize, swDwgTemplateBsize, 1#, 1#, False, "", 0#, 0#, "")

    swModel.ForceRebuild3 (False)

End Sub

FYI, SW 2017 will now let you change multiple Sheets.