Danke Ralf.
Ich habe mal Deinen Makrovorschlag verfeinert,
denn es müssen ja noch u.a. der Blattformatname mit angegeben werden.
==================================================
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swSheet As SldWorks.Sheet
Dim vSheetNames As Variant
Dim bRet As Boolean
Dim i As Long
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swSheet = swDraw.GetCurrentSheet
Dim Filenam As String
Dim Sheet As String
FileName = swModel.GetPathName
Sheet = swSheet.GetName
vSheetNames = swDraw.GetSheetNames
For i = 0 To UBound(vSheetNames)
Dim Maßstab As String
Dim CurrentSheet As Variant
Dim vSheetProps As Variant
Set CurrentSheet = Application.SldWorks.ActiveDoc.GetCurrentSheet
vSheetProps = CurrentSheet.GetProperties
Dim papersize As String
Dim templatein As String
Dim scale1 As String
Dim Scale2 As String
Dim firstAngle As String
Dim Width As String
Dim Height As String
papersize = vSheetProps(0)
templatein = vSheetProps(1)
scale1 = vSheetProps(2)
Scale2 = vSheetProps(3)
firstAngle = CBool(vSheetProps(4))
Width = vSheetProps(5)
Height = vSheetProps(6)
templatename = swSheet.GetTemplateName
'### False -> dritter Winkel
'### True -> erster Winkel
boolstatus = Part.SetupSheet5(vSheetNames(i), papersize, templatein, scale1, Scale2, True, templatename, Width, Height, "Standard", False)
Next i
End Sub
'### Get and Set Sheet Properties Example (VBA)
'### https://help.solidworks.com/2022/english/api/sldworksapi/get_and_set_sheet_properties_example_vb.htm
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP