Sandrila Ltd Delphi Code

// Gets a shape's PinX and PinY
function  getShapePinXmm(shape: Visio_TLB.shape): double;
function  getShapePinYmm(shape: Visio_TLB.shape): double;

// Get PinX result in mm for shape
function getShapePinXmm(shape: Visio_TLB.shape): double;
begin
  result := 0;
  try
    result := shape.CellsU['PinX'].Result['mm'];
  except;
  end;
end;

// Get PinY result in mm for shape
function getShapePinYmm(shape: Visio_TLB.shape): double;
begin
  result := 0;
  try
    result := shape.CellsU['PinY'].Result['mm'];
  except;
  end;
end;

Home