Share this Page URL
Help

Chapter 24. Visio Automation and Microso... > Querying PowerPoint for Visio's Use - Pg. 301

Visio Automation and Microsoft PowerPoint 2000 Interaction 301 (pagObj.PageSheet.Cells("PageHeight").Result(visNumber) / 2) - 1) shpObj.Text = szTextHolder Set celObj = shpObj.Cells("Width") celObj.Formula = "=GUARD(TEXTWIDTH(TheText))" Set celObj = shpObj.Cells("Height") celObj.Formula = "=GUARD(TEXTHEIGHT(TheText, Width))" shpObj.AddNamedRow visSectionConnectionPts, visRowConnectionPts, 0 Set celObj = shpObj.CellsSRC(visSectionConnectionPts, visRowConnectionPts, visCnnctX) celObj.Formula = "=Width*0.5" Set celObj = shpObj.CellsSRC(visSectionConnectionPts, visRowConnectionPts, visCnnctY) celObj.Formula = "=Height*1" shpObj.AddNamedRow visSectionConnectionPts, visRowConnectionPts + 1, 0 Set celObj = shpObj.CellsSRC(visSectionConnectionPts, visRowConnectionPts + 1, visCnnctX) celObj.Formula = "=Width*0.5" Set celObj = shpObj.CellsSRC(visSectionConnectionPts, visRowConnectionPts + 1, visCnnctY) celObj.Formula = "=Height*0" Set celObj = shpObj.Cells("LocPinY") celObj.Formula = "=Height*1" Set celObj = shpObj.Cells("PinY") If intFirstFlag = 1 Then celObj.Formula = pagObj.PageSheet.Cells("PageHeight").Result(visNumber) - 1 Else celObj.Formula = shpObjPast.Cells("PinY").Result(visNumber) - (shpObjPast.Cells("Height").Result(visNumber) + 1) Set shpObjConn = pagObj.DrawLine(1, 2, 1, 1) Set celObj = shpObjConn.Cells("BeginX") celObj.GlueTo shpObjPast.Cells("Connections.X2") Set celObj = shpObjConn.Cells("EndX") celObj.GlueTo shpObj.Cells("Connections.X1") End If intFirstFlag = 0 Next intPptSlideCount Visio.ActiveWindow.Selection.DeselectAll