ＥＸＣＥＬで選択した複数の図形を取得するには？ (ID：30402)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Serverコンポーネント使うとこんな感じですかね？

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;

begin

ExcelApplication1.Connect;
  ExcelApplication1.Visible[0] := False;
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Open(
                             ファイル名,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             EmptyParam,
                             0) as _Workbook);
  ExcelWorksheet1.ConnectTo(ExcelWorkbook1.activesheet as _Worksheet);

ShowMessage('件数 ' + IntToStr(ExcelWorksheet1.Shapes.Count));
  for i := 1 to ExcelWorksheet1.Shapes.Count do
  begin
    ShowMessage(ExcelWorksheet1.Shapes.Item(i).Name);
  end;

ExcelWorksheet1.Disconnect;
  ExcelWorkbook1.Disconnect;
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;

end;

←解決時は質問者本人がここをチェックしてください。

戻る