Hallo Chrisitian,
ich verstehe deine Frage nicht ganz, aber ich geb dir einfach mal die Programmcodes die ich habe:
Ursprungsmakro zum ändern der Dateiposition:
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
boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates, "C:\Users\Internet\Documents\Arbeit\Hiwi\ohne Events")
End Sub
Und hier das Makro, wo ich versuch habe einfach das Set.. durch Get.. zu ersetzen, wobei lblpfad ein Label in der Userform ist:
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
lblpfad.Caption = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsDocumentTemplates)
End Sub
[Diese Nachricht wurde von HiwiMichi am 01. Aug. 2014 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP