img = imread('C:\Users\shun_\OneDrive\デスクトップ\研究室2\成分表示.jpg');
Ninshikimoji = lower(results.Words);
Ninshikiwaku = results.WordBoundingBoxes;
Jisho = readtable('allergy.xlsx','ReadRowNames',true);
word = categorical(Jisho.word);
for n = 1:size(Ninshikimoji,1)
if any(word == Ninshikimoji{n})
Shoukai = Jisho{Ninshikimoji{n},:};
img = insertObjectAnnotation(img,'rectangle',Ninshikiwaku(n,:),Shoukai{:},'font','Yu Gothic Bold');
x = Ninshikiwaku(n,1); y = Ninshikiwaku(n,2); w = Ninshikiwaku(n,3); h = Ninshikiwaku(n,4);
logo = imresize(imread([Shoukai{:} '.png']),0.3);
img(y:(y+size(logo,1)-1),(x+w):(x+w+size(logo,2)-1),:) = logo;
Mininshiki = [Mininshiki ' ' Ninshikimoji{n}];
if not(a{1}==a{2} & a{2}==a{3} & a{1}==a{3})
txt = [tango{f},'のいみをえらんでください '];
answer = questdlg(txt, ...
fig{b},fig{c},fig{d},fig{f});
disp(['はずれ・・・。せいかいは、',fig{f}])
disp(['はずれ・・・。せいかいは、',fig{f}])
disp(['はずれ・・・。せいかいは、',fig{f}])