Excel VBA ___+___, <s>465</s> <s>463</s> <s>461</s> <s>437</s> <s>427</s> 419 Bytes
=

Subroutine that takes input `name` of type string, searches for a glamour shot of that name on google images, navigates to that image and then outputs the image to the `Sheets(1)` object via the `https://encrypted-tbn0.gstatic.com/images?q=` - type link.

_Must_ be run in a clean module.

>___NOTE:___ Uses References to 
>
* Microsoft HTML Object Library
* Microsoft Internet Controls
* Microsoft Scripting Runtime


<!-- language-all: lang-vba -->


__Golfed:__

    Sub g(n)
	Dim i As New SHDocVw.InternetExplorer
	With i
	.navigate "google.com/search?tbm=isch&q="&Replace(n," ","+")&"+glamour+shot"
	h i
	Set d=.document
	Do Until InStr(1,l,"res")
    j=j+1
	l=d.getElementsByTagName("a")(j).href
	Loop
	.navigate l
	h i
	Do Until InStr(1,l,"ryp")
    k=k+1
	l=d.getElementsByTagName("img")(k).src
    Loop
	Sheets(1).Pictures.Insert l
	.Quit
	End With
	End Sub

 _Helper subroutine_

    Sub h(i)
    While i.readyState<4
    DoEvents
    Wend
    End Sub

-2 bytes for removing white space in `If InStr(1, a.href, "imgres") Then`

-2 bytes for changing `.navigate (a.href)` to `.navigate a.href`

-27 bytes for reducing `for each a in ... if (...) then ... end if .. next` loop to `do until ... loop`

-10 bytes for condensing `imgres` to `res` and `encrypted` to `yp`

-8 bytes for removing initalizers for `j`, `k` and assuming clean module

__Ungolfed, 670 Bytes:__

    Sub GlamourShot(ByVal name As String)
     
        Dim ie As New SHDocVw.InternetExplorer
        With ie
        
            Call .navigate("www.google.com/search?tbm=isch&q=" & _
                    Replace(name, " ", "+") & "+glamour+shot")
            While .readyState <> READYSTATE_COMPLETE
                DoEvents
            Wend
            
            For Each a In .document.getElementsByTagName("a")
                
                If InStr(1, a.href, "imgres") Then
                    
                    Call .navigate(a.href)
                    
                    While .readyState <> READYSTATE_COMPLETE
                        DoEvents
                    Wend
                    
                    Dim link As String, _
                        index As Integer
                    Let index = 1
                    
                    Do Until InStr(1, link, "encrypted") > 0
                        link = .document.getElementsByTagName("img")(index).src
                        Let index = index + 1
                    Loop
                    
                    Call [A1].Select
                    Call ActiveSheet.Pictures.Insert(link)
                    Exit For
                End If
            Next
            
            Call .Quit
            
        End With
    End Sub

___Very_ poor quality gif__


[![Usage Gif][1]][1]


  [1]: https://i.stack.imgur.com/yQFgR.gif