为何Excel从复制的图片无法粘贴到Image中？解决办法

为何Excel从复制的图片无法粘贴到Image中？
把图片插入到Excel中，然后在Excel中选择图片点右键 "复制 "，然后运行下段程序:
if   ClipBoard.HasFormat(CF_PICTURE)   then
Image1.Picture.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(CF_BITMAP),0);


------解决方案--------------------
试试这个：

var
H: THandle;
FMT:Integer;
begin
FMT:=CF_METAFILEPICT;
ClipBoard.Open;
try
if ClipBoard.HasFormat(FMT) then
begin
H := ClipBoard.GetAsHandle(FMT);
Image1.Picture.LoadFromClipBoardFormat(FMT,H, 0);
end;
finally
Clipboard.Close;
end;
end;