[クリップボードに、複数の画像を出し入れするには？]
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+201311/13110026.txt
のレス用記事です．
以下のコードで，エクセルで [コピー] した複数の画像を取得して保存することができます．

• 取得可能なのは [画像] だけです．下のコードでは [図形] は取得できません．
• Excel 2007 以降の xlsx 形式のブックのみで可能です．
• 提示したコードは Delphi XE2 以降専用です．
• 動作確認環境は，Windows 7 U64(SP1) + Delphi XE2(UP4) + Excel 2010 です．

{$R *.dfm}

//=============================================================================
//  Art::GVML Clipformat形式のクリップボードデータの検出と保存
//  docxまたはxlsx形式の文書でないと動作不可
//
//  ワードの場合
//  [挿入][図]はInllineでもInlineでなくとても保存可能
//  [挿入][図形](オートシェイプ)はInllineでは保存不可
//
//  エクセルの場合
//  画像のみ保存可能
//
//  usesにClipbrd, System.Zip, StrUtilsが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
const
  CustomDataStr: String = 'Art::GVML Clipformat';
var
  zipStream   : TMemoryStream;
  hBuffer     : THandle;
  pBuffer     : Pointer;
  DataFormat  : UINT;
  ZipClass    : TZipFile;
  DestFileDir : String;
  FileListArr : TArray<string>;
  strText     : String;
begin
  //クリップボードのデータフォーマット形式の値を取得
  DataFormat := RegisterClipboardFormat(PChar(CustomDataStr));

  if Clipboard.HasFormat(DataFormat) then begin
    //その形式だったらクリップボードからZipStreamにデータを取得
    zipStream := TMemoryStream.Create;
    try
      ClipBoard.Open;

      hBuffer := Clipboard.GetAsHandle(DataFormat);
      pBuffer := GlobalLock(hBuffer);

      zipStream.WriteBuffer(pBuffer^, GlobalSize(hBuffer));
      zipStream.SaveToFile(ExtractFilePath(Application.ExeName) + 'AAA.zip');
      GlobalUnlock(hBuffer);
      Clipboard.Close;

      //データ(図・画像)の保存先のフォルダを作成
      DestFileDir := ExtractFilePath(Application.ExeName) + 'AAA';
      ForceDirectories(DestFileDir);

      //Art::GVML Clipformat形式はZip形式なのでZipからデータを取出して保存
      ZipClass := TZipFile.Create;
      try
        zipStream.Position := 0;
        ZipClass.Open(zipStream, zmRead);
        FileListArr := ZipClass.FileNames;
        for strText in FileListArr do begin
          if ContainsText(StrText, 'clipboard/media/image') then begin
            ZipClass.Extract(strText, DestFileDir, False);
          end;
        end;
      finally
        ZipClass.Close;
        FreeAndNil(ZipClass);
      end;
    finally
      FreeAndNil(zipStream);
    end;
  end;
end;

　　　　
下の図は，添付のブックで，複数の図形と画像を選択した状態です．

取得しして [AAA] というフォルダに保存された画像です．
図形は取得できません．

上のコードは，[ワードの画像・図形を保存] [選択中の複数の画像または図形を個別の画像で保存]
http://mrxray.on.coocan.jp/Delphi/plWordEx/T_ImageSave.htm#03
の以下の部分を削除したものとなっています．
　　//選択したオブジェクトをクリップボードにコピー
　　wdfWordApp.Selection.Copy;