How to Extend Lifeline or Resize Shape?

[alexis_salinas]

Hi guy
I  need help, how to extend lifeline o resize the Object LifeLine???

Code Select Expand

       
forma1 = vStencil.Masters("Object LifeLine")
vFromShape = vApp.ActivePage.Drop(forma1, dblXLocation, dblYLocation)
       
forma2 = vStencil.Masters("Object LifeLine")
vToShape = vApp.ActivePage.Drop(forma2, dblXLocation + 1.5, dblYLocation)

vConnectorMaster = vStencil.Masters("Message")
vConnector = vApp.ActivePage.Drop(vConnectorMaster, dblXLocation + 1.5, dblYLocation - 1.5)

vBeginCell = vConnector.Cells("BeginX")
vBeginCell.GlueTo(vFromShape.Cells("Connections.X2"))

vEndCell = vConnector.Cells("EndX")
vEndCell.GlueTo(vToShape.Cells("Connections.X2"))
       
thanks

[Wombat]

Hey a_s,

1. What is the "Object LifeLine"?
2. Where are you have a problem or an error?

[Paul Herber]

The Object Lifeline is in the UML stencils.
The height of the lifeline is controlled by a cell in the Controls section. Put your required height in cell Controls1.Y

[alexis_salinas]

The Object Lifeline is in the UML stencils.
The height of the lifeline is controlled by a cell in the Controls section. Put your required height in cell Controls1.Y

Thanks,
The code is

Code Select Expand


Dim vShp As Visio.Shape
Dim vMst As Visio.Master
vMst = vStencil.Masters("Object LifeLine")
vShp = vApp.ActivePage.Drop(vMst , 5, 5)
vShp.Name = "Class1"
vShp.Cells("Controls.Y").FormulaForceU = 10


working Ok!!


Thanks guy

[knowbots]

Dim vShp As Visio.Shape
Dim vMst As Visio.Master
vMst = vStencil.Masters("Object LifeLine")
vShp = vApp.ActivePage.Drop(vMst , 5, 5)
vShp.Name = "Class1"
vShp.Cells("Controls.Y").FormulaForceU = 10


People, where stay "Object Lifeline" i need put a variable, like this

num = 1
var1 = "Object LifeLine" & num
vMst = vStencil.Masters(var1)


I tried  to do this but doesn't works

[Paul Herber]

People, where stay "Object Lifeline" i need put a variable, like this

num = 1
var1 = "Object LifeLine" & num
vMst = vStencil.Masters(var1)


I tried  to do this but doesn't works

There is no master shape with this name. vMst will be set to nil.

[wapperdude]

First the obvious, you should dim "num" and "var1".

2nd:  your statement  var1 = "Object LifeLine" & num would result in var1 = Object LifeLine1, or something like that.

To get your example to work, try:

Dim var1 as string
var1 = "Object LifeLine"

That ought to work.