Is it possible to set (by VB Script) the shape selection mode to automatic ?

[MRenoud]

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

[MRenoud · Accepted solution]

Thank you very much. It suits us.

[jhorber]

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