Hi @drafter2ZT9Z4 . You need to use the AddWithOptions method and add the FitViewsToSheet setting to it. Example code:
Dim oDDoc As DrawingDocument = TryCast(ThisDoc.Document, DrawingDocument)
If oDDoc Is Nothing Then Exit Sub
Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
Call oOptions.Add("FitViewsToSheet", True)
Dim oSheetF As SheetFormat = oDDoc.SheetFormats.AddWithOptions(oDDoc.ActiveSheet, "NewSheetFormat", oOptions)
Valid values are: Name = “FitViewsToSheet”, Value = Boolean