Sandrila Ltd Delphi Code

// Gets a shape's Width and Height
function  getShapeWidthmm(shape: Visio_TLB.shape): double;
function  getShapeHeightmm(shape: Visio_TLB.shape): double;

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

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

Home