Set XlSheet = XlWrkbook.Worksheets('Sheet' & p)ĬonShp = cnxArry(0, 0, 0, 0, 0, 0, 0, 0, p, i) XlWrkbook.Worksheets('Sheet' & p).Activate Set XlSheet = XlWrkbook.Worksheets('Sheet1') Set XlApp = CreateObject('Excel.Application')
Sub ExcelReport(ByVal pgCnt, shpCnt, ByRef cnxArry() As Variant) The next macro generated a report in a new sheet to get all the connector with input and output shapes ('VisRpt').Run ('/rptDefName=ProjectSorting /rptOutput=EXCEL') Shape1.CellsU('prop.Cost').FormulaU = Chr(34) & CStr(Value) & Chr(34) Value = CDbl(Shape2.Data1) * CDbl(Connector.Text) Shape1.CellsU('prop.Cost').FormulaU = Chr(34) & CStr(Value3) & Chr(34)ĬonnectorsIds = Shape1.GluedShapes(visGluedShapesIncoming1D, '', Shape2) Value2 = CDbl(Tempo.Text) * CDbl(Connector.Data1) Set Connector = (Shape1ConnectorId(j))ĬonnectorsIds = Connector.GluedShapes(visGluedShapesOutgoing1D, '', Shape1) Shape1ConnectorId = Shape1.ConnectedShapes _ The first macro help me to calculate the value inside my shape on the left depending on the values of the shapes which are connected to it by an incomming connection
