cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

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

MRenoud
Super Contributor

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

2 Replies

MRenoud
Super Contributor

Thank you very much. It suits us.

jhorber
MEGA
MEGA

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
Jerome