Forum Discussion

lazuli1485's avatar
lazuli1485
Copper Contributor
Nov 09, 2022

VBA code fails in newest build

Hi,   I have had this line of code in a macro for many years       Set ImageToAdd = ActiveSheet.Shapes.AddPicture(ImageURL, True, False, _ Cells(RowToAddImage, ColumnToAddImage).Left + 6, _ Ce...
Macros and VBA
NikolinoDE's avatar
NikolinoDE
Platinum Contributor
Nov 10, 2022

lazuli1485 

I think this could be because the macro was placed at the worksheet level

...without being sure as don't have a full picture of the code/file/intend.

 

Try right-clicking on the module node in the VBA project window,

click "Insert" => "Module"

and then paste your macro into the new module

(make sure you use the macro recorded at worksheet level Clear).

 

Hope I could help you with these information / links.

 

NikolinoDE

I know I don't know anything (Socrates)

  • lazuli1485's avatar
    lazuli1485
    Copper Contributor
    Nov 10, 2022

    NikolinoDE 

    Thank you for the suggestion. Unfortunately not - the line is in a module and always has been.

    • mtarler's avatar
      mtarler
      Silver Contributor
      Nov 11, 2022
      are you sure RowToAddImage, ColumnToAddImage are both valid and don't have or result in a bad reference
      • lazuli1485's avatar
        lazuli1485
        Copper Contributor
        Nov 12, 2022

        Hi,

         

        Both are valid. I've stripped the code back and it can be inserted into a blank workbook to test:

         

        Private Sub CommandButton1_Click() 
Dim ImageToAdd 
Dim RowToAddImage 
RowToAddImage = 2
Dim ColumnToAddImage 
ColumnToAddImage = 7   
Dim ImageURL As String
'ImageURL = "https://peters.co.uk/rgw/assets/covers/large/513/9781910002513.jpg" ' fails
ImageURL = "https://peters.co.uk/uploads/downloads/medium/9781910002513.jpg" 'same image, same website, works
Set ImageToAdd = ActiveSheet.Shapes.AddPicture(ImageURL, True, False, _             
Cells(RowToAddImage, ColumnToAddImage).Left + 6, _             
Cells(RowToAddImage, ColumnToAddImage).Top + (Cells(RowToAddImage, ColumnToAddImage).Height / 2), -1, -1) 
End Sub

         

        As you can see I've narrowed the error down - it is conditional upon the image source. It will work with an image hosted on Google or Amazon. It works with the image stored in one valid web location, but will not work in another.

         

        My assumption at this point is that the newer builds is not treating the fail location as secure... but I have no idea why this might be the case.

         

Resources