Displaying image from website

[piluso]

Hello guys,
I am banging my head on this one.
I would like the spreadsheet to have access to an image online, everytime I open the spreadsheet I want it to retrieve the image and show it.
I am a newbie with macros, so I would appreciate details.

Is there any way of doing it without macros, btw?
Thanks

 

[cooper645]

Private Sub Workbook_Open()

'Open Image

    Dim URL As String
        URL = Worksheets("Sheet1").Range("A1").Value
            Range("A1").Select  'Change the cell in this line for top left corner of Image position
                    
            ActiveSheet.Pictures.Insert("http://www..........").Select
                                  'Insert Img URL here ^^^^^
End Sub

 

[piluso]

Thanks!
I see the code working if I press the play button, but if I close and open the excel document, the images don't load by itself and they don't refresh
What could it be?

 

[cooper645]

ensure that you have put it in the correct place,
-in the VBA editor,
- double click (This workbook) in the project window,
- under the play button, ensure you select (Workbook) from the drop down, not...general
- then the dropdown on the right should display (Open)

if you put the code here, it should have the desired effect for you you upon opening

This code however opens the image everytime time the document is opened, so if you never delete the image, after ten opens the image will be overlayed 10 times!!

 

[diddi]

this needs to be in the "ThisWorkbook" module for it to work on startup

 

[piluso]

so the Private Sub cannot be manually entered?
when I click on (general) -> Worksheet
on (Declarations) I can't find Open.

The options I have on Declarations are:
Activate
BeforeDoubleClick
BeforeRightClick
Calculate
Change
Deactivate
FollowHyperlink
PivotTableAfterValueChange
PivotTableBeforeAllocateChanges
PivotTableBeforeCommitChanges
PivotTableBeforeDiscardChanges
PivotTableChangeSync
PivotTableUpdate
SelectionChange

 

[piluso]

Perfect, got it!
Thanks a lot guys!