Hi all,

I'm running into issues uploading a .png file to a slideshow service hosted on our intranet. I've been able to open IE and select all the relevant information but cannot get the file to upload correctly after the "choose the file to upload" from your computer screen pops-up. I've tried using application.sendkeys to no avail. Any suggestions? The issue occurs after the last line of code below.

Sub UploadSlides()

Dim AcidNumber As Integer
AcidNumber = Sheets("rates").Range("Feed_Number")

Set ie = New InternetExplorerMedium
With ie
    .Visible = True
    .Navigate "https://acid.amazon.com/slides/new"

    Do While .Busy Or _
    .ReadyState <> 4
    DoEvents
    Loop

End With

'select the desired feed
'need to add a cell to pass feed number eg 8016 as variable
ie.Document.getElementById("slide_feed_id").Value = AcidNumber
'set duration of slide to 20 seconds; this could be any value
ie.Document.getElementById("slide_duration").Value = "20"
ie.Document.getElementById("slide_pic").Click