Hint: try a common type of animal, or a famous person.
There are lots of ways to get pictures in the Wolfram Language.
On the desktop, you can take a picture with your computer’s camera using CurrentImage.
You can use the Wolfram Knowledgebase (the same one that powers Wolfram|Alpha) to ask for a picture of something. Hold down the key and press = to get a natural language input field ():
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ =
"picture of Arnold Schwarzenegger",
WolframAlphaClient`Private`boxes$$ = RowBox[{"EntityValue", "[",
RowBox[{
TemplateBox[{"\"Arnold Schwarzenegger\"",
RowBox[{"Entity", "[",
RowBox[{"\"Person\"", ",", "\"ArnoldSchwarzenegger::6bc4j\""}], "]"}],
"\"Entity[\\\"Person\\\", \
\\\"ArnoldSchwarzenegger::6bc4j\\\"]\"", "\"person\""}, "Entity"],
",",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Person\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Person\\\", \\\"Image\\\"]\""},
"EntityProperty"]}], "]"}],
WolframAlphaClient`Private`allassumptions$$ = {{
"type" -> "Clash", "word" -> "Arnold Schwarzenegger",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "2",
"Values" -> {{
"name" -> "Person", "desc" -> "a person",
"input" -> "*C.Arnold+Schwarzenegger-_*Person-"}, {
"name" -> "PopularCurve", "desc" -> "a popular curve",
"input" -> "*C.Arnold+Schwarzenegger-_*PopularCurve-"}}}},
WolframAlphaClient`Private`assumptions$$ = {},
WolframAlphaClient`Private`open$$ = {1}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1,
Dynamic[WolframAlphaClient`Private`query$$],
Dynamic[WolframAlphaClient`Private`boxes$$],
Dynamic[WolframAlphaClient`Private`allassumptions$$],
Dynamic[WolframAlphaClient`Private`assumptions$$],
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{201., {7., 16.}},
TrackedSymbols:>{
WolframAlphaClient`Private`query$$,
WolframAlphaClient`Private`boxes$$,
WolframAlphaClient`Private`allassumptions$$,
WolframAlphaClient`Private`assumptions$$,
WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)
You can also drag images from most websites and drop them right into the code. If you want to refer to it later you can always give it a name like image:
image = \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ =
"picture of Arnold Schwarzenegger",
WolframAlphaClient`Private`boxes$$ =
RowBox[{"EntityValue", "[",
RowBox[{
TemplateBox[{"\"Arnold Schwarzenegger\"",
RowBox[{"Entity", "[",
RowBox[{"\"Person\"", ",", "\"ArnoldSchwarzenegger::6bc4j\""}], "]"}],
"\"Entity[\\\"Person\\\", \\\"ArnoldSchwarzenegger::6bc4j\
\\\"]\"", "\"person\""}, "Entity"], ",",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Person\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Person\\\", \\\"Image\\\"]\""},
"EntityProperty"]}], "]"}],
WolframAlphaClient`Private`allassumptions$$ = {{
"type" -> "Clash", "word" -> "Arnold Schwarzenegger",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "2",
"Values" -> {{
"name" -> "Person", "desc" -> "a person",
"input" -> "*C.Arnold+Schwarzenegger-_*Person-"}, {
"name" -> "PopularCurve", "desc" -> "a popular curve",
"input" -> "*C.Arnold+Schwarzenegger-_*PopularCurve-"}}}},
WolframAlphaClient`Private`assumptions$$ = {},
WolframAlphaClient`Private`open$$ = {1}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1,
Dynamic[WolframAlphaClient`Private`query$$],
Dynamic[WolframAlphaClient`Private`boxes$$],
Dynamic[WolframAlphaClient`Private`allassumptions$$],
Dynamic[WolframAlphaClient`Private`assumptions$$],
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{201., {7., 16.}},
TrackedSymbols:>{
WolframAlphaClient`Private`query$$,
WolframAlphaClient`Private`boxes$$,
WolframAlphaClient`Private`allassumptions$$,
WolframAlphaClient`Private`assumptions$$,
WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ =
"picture of Arnold Schwarzenegger",
WolframAlphaClient`Private`boxes$$ = RowBox[{"EntityValue", "[",
RowBox[{
TemplateBox[{"\"Arnold Schwarzenegger\"",
RowBox[{"Entity", "[",
RowBox[{"\"Person\"", ",", "\"ArnoldSchwarzenegger::6bc4j\""}], "]"}],
"\"Entity[\\\"Person\\\", \
\\\"ArnoldSchwarzenegger::6bc4j\\\"]\"", "\"person\""}, "Entity"],
",",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Person\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Person\\\", \\\"Image\\\"]\""},
"EntityProperty"]}], "]"}],
WolframAlphaClient`Private`allassumptions$$ = {{
"type" -> "Clash", "word" -> "Arnold Schwarzenegger",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "2",
"Values" -> {{
"name" -> "Person", "desc" -> "a person",
"input" -> "*C.Arnold+Schwarzenegger-_*Person-"}, {
"name" -> "PopularCurve", "desc" -> "a popular curve",
"input" -> "*C.Arnold+Schwarzenegger-_*PopularCurve-"}}}},
WolframAlphaClient`Private`assumptions$$ = {},
WolframAlphaClient`Private`open$$ = {1}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1,
Dynamic[WolframAlphaClient`Private`query$$],
Dynamic[WolframAlphaClient`Private`boxes$$],
Dynamic[WolframAlphaClient`Private`allassumptions$$],
Dynamic[WolframAlphaClient`Private`assumptions$$],
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{219., {7., 16.}},
TrackedSymbols:>{
WolframAlphaClient`Private`query$$,
WolframAlphaClient`Private`boxes$$,
WolframAlphaClient`Private`allassumptions$$,
WolframAlphaClient`Private`assumptions$$,
WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)