‎16-11-2017 03:45 PM
Hello,
Is it possible to set (by VB Script) the shape selection mode (manual shape/automatic shape) to automatic ?
In KB 2441, it is said that it is an improvement request for future versions (CR 16105).
Is this improvement available ? In which release ?
How does it work ?
I thank you for advance
Muriel Renoud
Solved! Go to Solution.
‎17-11-2017 11:50 AM
Thank you very much. It suits us.
‎16-11-2017 04:09 PM
The KB is not up to date.
The feature is available from MEGA 2009 SP5
Example of script
Sub Dump(oItm) Print oItm.ItemProperty("ModeOcc_Shape") Print oItm.ItemProperty("ModeOcc_ManualShape") End Sub Set oDrw = GetObjectFromId("~ihoT1TdCAT10[Logigramme]").Drawing("RW") For Each oObj In oDrw.DrawingObjects Print oObj.SegName Set oItm = oObj.DrawingItem Dump oItm oItm.ItemProperty("ModeOcc_Shape") = "prosbeg.mgs" Dump oItm oItm.ItemProperty("ModeOcc_Shape") = "" Dump oItm oItm.ItemProperty("ModeOcc_Shape") = "prosbeg.mgs" Dump oItm oItm.ItemProperty("ModeOcc_ManualShape") = False Dump oItm oItm.ItemProperty("ModeOcc_ManualShape") = True Dump oItm Next