请教关于PowerPoint的问题。

Question

请教诸位大虾，我想通过程序给某张幻灯片写一个标题，应该怎么做？请大家帮忙，谢谢！！！

Answer 1

procedure Set_Caption(const Caption: WideString); safecall;不知道这个函数是否可行？

Answer 2

procedure TPowerPointApplication.Set_Caption(const Caption: WideString);
  { Warning: The property Caption has a setter and a getter whose
  types do not match. Delphi was unable to generate a property of
  this sort and so is using a Variant to set the property instead. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Caption := Caption;
end;