isht为工作表对象
intNum为保留的图形
function 图片处理(isht,intNum){
ShpCount=isht.Shapes.Count;
ColCount=isht.UsedRange.Columns.Count;
for(let x=ShpCount;x>=1;x--){
if(x!=intNum){isht.Shapes(x).Delete();}
isht.Shapes(1).Cut();
isht.Cells(1,ColCount).Select();
isht.Paste();
}
}