cancel
Showing results for 
Search instead for 
Did you mean: 

Reinitialize Shapes using vbscript

Highlighted
MEGA Partner

Reinitialize Shapes using vbscript

Hi,

 

Does this script work on HOPEX V2R1 U02?

 

oQuery = "Select [Diagram] Where nature Not = 'ANALYSISDIAGRAM' And Nature Not = 'GENERICGANTT' And [Update Version]<'30208'"

 

Set cDiag = GetSelection(oQuery, "Short name", -1)

For each oDiag in cDiag

  Set oDrawing = oDiag.Drawing("RW")

    

                                                                oDrawing.Resetshapes

        oDrawing.Flush

Next

 

I tried it but I am getting the below error:

 

Script Editor Default: Microsoft VBScript runtime error line 7, offset 70 :

Error(0x800a01a8) : Object required: ‘oDrawing’

 

Any hints?