function Pictures_Insert(httpstr in VARCHAR2)
	return pls_integer is
obj1 client_ole2.obj_type;
obj2 client_ole2.obj_type;
p_httpstr varchar2(500):='http://oas:7778/forms/html/16.gif';
begin
	
	  obj1 := client_ole2.get_obj_property(excelobjw, 'ActiveSheet');
		obj2 := client_ole2.get_obj_property(obj1, 'Pictures');
		arglist := client_ole2.create_arglist;
	client_ole2.add_arg(arglist, p_httpstr);
	client_ole2.invoke(obj2, 'Insert', arglist);
	client_ole2.destroy_arglist(arglist);
	
	client_ole2.release_obj(obj2);
	client_ole2.release_obj(obj1);
	return 1;
exception
	when others then
		return 0;
end;