Hoi allemaal
Ik neem de vrijheid om het onderwerp opnieuw te lanceren met mijn kleine probleem van macro, verandering van plan, formaat en schaal door een selectievenster.
Het werkt wonderwel zolang ik het achtergrondbestand verander. Maar! Als ik alleen de schaal wil wijzigen, verlies ik het blad en moet ik naar de bladeigenschappen gaan en opnieuw laden.
Ik kan deze "Recharge" niet integreren in mijn macro.
Hier is het codegedeelte voor een A3-detailplan
Ik heb hetzelfde voor de andere achtergronden. Het is waarschijnlijk iets toe te voegen aan het einde van mijn macro, maar ik crash ...
@sbadenis ! Jij die vaak de grijze gebieden van mijn beginnerscodes hebt verlicht ^^
Hier is zodra ik mijn keuzes heb gemaakt:
Privé Sub CommandValidation_Click()
Venster voor lossen
Stel swApp = Toepassing.SldWorks in
Deel instellen = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Sheet1", "SHEET", 0, 0, 0, False, 0, Nothing, 0)
‹ A3 - Gegevens ›
Als OptionButton3.Value = Waar En OptionButtonPrt.Value = Waar Dan
boolstatus = Part.SetupSheet5(swSheet.GetName, 12, 12, TextBox1.Value, TextBox2.Value, True, "Basiskaart prt-A3h.slddrt", 0, 0, "Standaard", True)
Deel.EditTemplate
Deel.EditSheet
Anders
Einde als'