Excel VBA ___+___, <s>465</s> <s>463</s> <s>461</s> <s>437</s> <s>427</s> <s>419</s> <s>418</s> <s>415</s> <s>407</s> <s>395</s> <s>388</s> <s>382</s> <s>369</s> <s>367</s> 356 Bytes
=

<s>_Must_ be run in a clean module.</s> _No longer necessary._

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


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

__Golfed Immediate Window Function:__

Anonymous VBE immediate window that takes input from cell `[A1]` and outputs a glamour shot to the activesheet object

Uses _helper `sub`routine_ shown below

    Set i=New InternetExplorer:l="google.nl/search?tbm=isch&q="&Replace([A1]," ","+")&"+glamour+shot":h i,l,0,1:h i,l,0,0:Sheets(1).Pictures.Insert l



__Golfed `Sub`routine version:__

`Sub`routine 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.

_Included for clarity, does not count toward byte count_

	Sub g(n)
	Set i=New InternetExplorer
	l="google.nl/search?tbm=isch&q="&Replace(n," ","+")&"+glamour+shot"
	h i,l,1
	h i,l,0
	Sheets(1).Pictures.Insert l
	End Sub
	
 __Helper `sub`routine__

    Sub h(i,l,y)
	i.navigate l
	While i.readyState<4
	DoEvents
	Wend
	j=0
	Do Until InStr(1,l,IIf(y,"res","yp"))
	j=j+1
	Set x=i.document.getElementsByTagName(IIf(y,"a","img"))(j)
	If y Then l=x.href Else l=x.src
	Loop
	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

-1 byte for changing `google.com` to `google.nl`

-3 bytes for replacing `Dim i as New ...` with `Set i=New ...`

-8 bytes for removing `SHDocVw.` class reference

-12 bytes for removing `with i` block

-7 bytes for removing `i.quit` - this causes some memory leakage by leaving internet explorer open in the background, as such it is recommended that either the full ungolfed version is used instead or that the internet explorer task is terminated through task manager after use 

-6 bytes for moving `i.navigate` into helper subroutine `h`

-13 bytes for moving `Do Until ... Loop` into helper subroutine

-2 bytes by moving `j=0` into helper and removing `,j`, `,0` (x2) 

-11 bytes for converting to an anonymous immediate window function

__Ungolfed, 1296 Bytes__

    Option Private Module
    Option Compare Text
    Option Explicit
    Option Base 0
    
    Sub GlamourShot(ByVal name As String)
        
        Dim ie As New SHDocVw.InternetExplorer, _
            doc As MSHTML.HTMLDocument, _
            link As String, _
            j As Integer, _
            k As Integer
            
        With ie
            On Error GoTo CloseIE #'prevents memory leak
            
            Let .visible = True
            Call .navigate("www.google.com/search?tbm=isch&q=" & _
                        Replace(name, " ", "+") & _
                        "+glamour+shot")
            While .readyState <> READYSTATE_COMPLETE Or .Busy
                DoEvents
            Wend
        
            Set doc = .document
            
            Let j = 1
            Do Until InStr(1, link, "imgres") > 0
                Let link = doc.getElementsByTagName("a")(j).href
                Let j = j + 1
            Loop
            
            Call .navigate(link)
            While .readyState <> READYSTATE_COMPLETE Or .Busy
                DoEvents
            Wend
            
            Let k = 1
            Do Until InStr(1, link, "encrypted") > 0
                Let link = doc.getElementsByTagName("img")(k).src
                Let k = k + 1
            Loop
            
            With ThisWorkbook.ActiveSheet
                Call .Range("A1").Select
                Call .Pictures.Insert(link)
                Call .Activate
            End With
    CloseIE:
            Call .Quit
        End With
    End Sub

___Very_ poor quality gif__


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


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