Danke für den Tip, aber das habe ich schon versucht, dabei wird aber nur folgendes aufgezeichnet:
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
-----------------------------------------------------------
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub
Vorgehen:
Makro aufzeichen starten
Via Maus Photoview-Menü
Endrendering durchlaufen lassen
Bild speichern
Makro aufzeichen Stop
Makro abspeichern
Irgendwie mache ich da wohl was falsch...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP