Trying to write VBA to test if the IMAGE function is supported

[bisel]

Greetings All,

I have an Excel application that will use the Excel function to insert an image inside a cell. It is my understanding that the function to insert an image inside a cell is also associated with the IMAGE function which is available in Excel 365 but not earlier versions such as Excel 2019.

I was searching around and found VBA code I adapted for my use ...

Sub CheckExcel ()
' Attempt to use the IMAGE function.
  On Error Resume Next
  Sheet5.Range("excelIMAGEtarget").Formula = "=IMAGE(""https://reservestudyhoa.com/images/diyimage_small.jpg"")"
    
' Check if the function was accepted
    If Err.Number = 0 Then
        Sheet5.Range("excelsupported").Value = "TRUE"
        Err.Clear
        MsgBox "This version of Excel supports the IMAGE function." 
        On Error GoTo 0
        Exit Sub
    Else
        Sheet5.Range("excelsupported").Value = "FALSE"
        MsgBox "This version of Excel does not support the IMAGE function." 

        Err.Clear
        On Error GoTo 0
        Exit Sub
    End If

End Sub

I must be doing something wrong because I can never force the error condition. For example, if change this line

Sheet5.Range("excelIMAGEtarget").Formula = "=IMAGE(""https://reservestudyhoa.com/images/diyimage_small.jpg"")"

to this ...

Sheet5.Range("excelIMAGEtarget").Formula = "=IMAGEX(""https://reservestudyhoa.com/images/diyimage_small.jpg"")"

The resulting target cell displays #NAME which I would expect. But, the VBA code does not trap the error condition.

Appreciate any help.

Regards,

Steve

 

[Scott Huish]

Isn't this the same question as here?

Identify What Version of Excel is Installed

I have a need to determine if the user's installed version of Excel will support specific features. Upon opening a workbook, I am trying to collect information ... The Excel Version number The Excel Product Code The Excel Build Number The Operating System identifier I am using the following...

www.mrexcel.com

 

[bisel]

Isn't this the same question as here?

Identify What Version of Excel is Installed

I have a need to determine if the user's installed version of Excel will support specific features. Upon opening a workbook, I am trying to collect information ... The Excel Version number The Excel Product Code The Excel Build Number The Operating System identifier I am using the following...

www.mrexcel.com

Sort of the same. Certainly the same issue I am trying to solve. I have tried various bits of code and I am hoping that this bit of code will check what I need ...

Private Sub Workbook_Open()

Dim excelbuild_short As String
Dim excelVersion As String

' Check if Excel supports PIC

     excelVersion = Application.Version * 1   'Convert string to number
     excelBuildShort = Application.Build * 1  'Convert string to number

    If excelVersion >= 16 And excelBuildShort >= 13426 Then
        Err.Clear
        MsgBox "This version of Excel supports the PICTURE IN CELL function."
        On Error GoTo 0
        Exit Sub
    Else
        MsgBox "This version of Excel DOES NOT support the PICTURE IN CELL function."
        Err.Clear
        On Error GoTo 0
    End If
End Sub

The above code works with my installed Excel which is Excel 365. Excel Version number of 16 will apply to several "versions" of Excel including 365, 2016, 2019, 2021, and 2024. But I am hoping that including the test to determine that the version number is >= 16 ... AND ... the Build number is >= 16529 that I am accomplishing my intention.

 

[Fluff]

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.