oShapes = oSheet.Shapes oShape = oShapes(1) '消したい画像の1番目が場合 oShape.Delete() Marshal.ReleaseComObject(oShape) Marshal.ReleaseComObject(oShapes)