getmastername.txt

自动化控制visio

// Gets a shape's master name
function  getMasterName(shape: Visio_TLB.Shape): widestring;

function getMasterName(shape: Visio_TLB.Shape): widestring;
var
  startPos: integer;
begin
  try
    result := shape.Master.Name;
  except
    result := shape.Name;
  end;
  startPos := pos('.', result);
  if (startPos > 0) then
    result := leftStr(result, startPos-1);
end;