VBA to access pop up save as in IE

[Sintek]

Hi All

Me again lol....
How does one access the pop up save as through vba...
My code clicks a button "capture to file" then the pop up appears...No element to get...

Set obj = IE.document.getElementById("btnChartCaptureImage"): obj.Click

Untitled.png


If the above proves to difficult which web trolling has shown then perhaps vba to:

open paint application
paste
save as

cause this code...copies the chart to clipboard...

Set obj = IE.document.getElementById("btnChartCopyToClipboard"): obj.Click

[CK76]

Send keys maybe. As far as I'm aware, there isn't API built in to work with save as menu in IE.

Can you trace in developer tool what "btnChartCopyToClipboard" is doing?

Or if you just want to capture image, you could do it via freefile() method I'd imagine. But I'd need to see source HTML code for the page.
Can you upload text file with entire HTML code pasted in? (In IE, while you have the page active, right click and see source, copy entire code and paste).

[Sintek]

Hey there again CK76

Have attached Source code from page...I am assuming the highlighted part in image is what I need...
Untitled.png


Found this link but does not quite solve...Sticks at Dialogue box
https://stackoverflow.com/questions/...from-excel-vba

[Sintek]

Hey guys...
As an alternative perhaps...I have code that copies to clipboard, opens paint and pastes chart...

Need the code to save as from there to specific folder...Any ideas..

Set obj = IE.document.getElementById("btnChartCopyToClipboard"): obj.Click
         
' Paste to paint and save
Path = "C:\Windows\system32\mspaint.exe"
MyAppID = Shell(Path, 1)
Application.Wait (Now + TimeValue("0:00:05"))
AppActivate (MyAppID)
Application.Wait (Now + TimeValue("0:00:05"))
Application.SendKeys "^v", True
Application.SendKeys "^s", True 'This opens up the save dialogue box
' Need code here to save As Thisworkbook.Path & "/" & "Linechart.png"

[CK76]

Hmm, no need to use MS paint. Paste copied item into excel worksheet using following (it will create shape).
After you copy img to clipboard.

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False

Then combine it with Chart.Export method. Something like below.

Dim myPic As Shape

ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
        False
Set myPic = ActiveSheet.Shapes(1)
myPic.Copy
    With ActiveSheet.ChartObjects.Add(myPic.Left, myPic.Top, myPic.Width, myPic.Height)
        .Name = "Blah"
        .Activate
    End With
ActiveChart.Paste
    With ActiveSheet.ChartObjects("Blah")
        .Chart.Export ThisWorkbook.Path & "\Test" & ".png", "PNG"
        .Delete
    End With
myPic.Delete

[Sintek]

Hi CK76

Thanks for response...This code renders a border paste...Not the chart...I know that it is the chart that gets copied because when pasting into paint, the chart shows up...Any ideas?

ActiveSheet.PasteSpecial Format:="HTML", link:=False, DisplayAsIcon:=False

Edit
Not to worry...Changed HTML to Bitmap

[CK76]

Ah, right. I copied image with transparent background from Google Image search for testing.
That one need to be pasted as "HTML" to have transparent background. Forgot about that.

Those images when pasted as "Bitmap" will have black background instead of transparent.
0.JPG

[Sintek]

I am a very happy chappy right now...Thanks CK76.
Works very well...

ActiveSheet.PasteSpecial Format:="Bitmap", link:=False, DisplayAsIcon:=False
Set Pic = ActiveSheet.Shapes("Picture 1")
Pic.Copy: Charts.Add
With ActiveSheet.ChartObjects.Add(Pic.Left, Pic.Top, Pic.Width, Pic.Height)
   .Name = "LineChart"
   .Activate
End With
ActiveChart.Paste
With ActiveSheet.ChartObjects("LineChart")
    .Chart.Export ThisWorkbook.Path & "\" & "LineChart.png"
    .Delete
End With
Application.DisplayAlerts = False
Sheets("Chart1").Delete
Application.DisplayAlerts = True
Pic.Delete

[CK76]

You are welcome and thanks for the rep