-3

アドイン エクスプレスなしで Delphi を使用して単純なカスタム タスク ペインを作成し、カスタム タスク ペインを Excel に追加する方法。

タスクペインには 1 つのボタンがあります (閉じる)

procedure TMyAddin.OnConnection(const Application: IDispatch; ConnectMode: ext_ConnectMode; const AddInInst: IDispatch; var custom: PSafeArray);
var FApp:ExcelApplication;
CTP:TCustomTaskPane;
begin
...
  CTP:=TCustomTaskPane.Create(Self);
//?
  CTP.Visible:=True;
end;

XE7、office2010.pas、excel2010.pas を使用

4

1 に答える 1

0

なんとか自分でやりました。同じ問題を抱えている人のために、ここに解決策を投稿してください

  • アドインを作成する
  • アドイン プロジェクトに ActiveX フォームを追加する
  • 以下のコードを addin .pas ファイルに追加します
procedure TmyAddin.CTPFactoryAvailable(const CTPFactoryInst: ICTPFactory); safecall;
Var 
    CTP: _CustomTaskPane;
//  NP: TActiveXformClass;
begin   
    CTP:= CTPFactoryInst.CreateCTP('<replace with add-in name>.<replace with activeXform name>', 'pane caption', EmptyParam);
//  NP := TNavigationPane(ctp.ContentControl);
    CTP.Visible := true;
end;
于 2015-06-27T17:41:47.967 に答える