new inventor sheet
Public Sub AddUsingSheetFormat()
'Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
'Set a reference to the sheet format named "C size, 4 view"
Dim oFormat As SheetFormat
Set oFormat = oDrawDoc.SheetFormats.Item("C size, 4 view")
'Open the model document invisible
Dim oModel As Document
Set oModel = ThisApplication.Documents.Open("C:\temp\block.ipt", False)
'Create a new sheet based on the sheet format
Dim oSheet As Sheet
Set oSheet = oDrawDoc.Sheets.AddUsingSheetFormat(oFormat, oModel)
End Sub