UDF Image Formula

Ini adalah sebuah User Definded Function (UDF) yang dibuat bagi pengguna Excel dibawah Excel 365 yang ingin memiliki fungsi rumus IMAGE sama seperti rumus pada Google Sheet atau Excel 365.

Rumus ini berfungsi untuk menampilkan Gambar dari URL yang diinputkan bahkan UDF ini memiliki kelebihan karena bisa menampilkan gambar dari alamat Folder.

Dimana hal ini tidak bisa dilakukan dengan menggunakan rumus IMAGE bawaan Excel 365.

Seperti biasa, simpan UDF ini pada Module di Visual Basic Editor (Alt+f11)

Function IMAGE(URL As String)
'-----------------------------------------
' Sctipt VBA    : Image UDF
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------
  
Dim CellSaya As Range
On Error Resume Next
Set CellSaya = Application.Caller
'hapus dulu
ActiveSheet.Pictures("GB_" & CellSaya.Address(False, False)).Delete

ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
    .Top = CellSaya.Top
    .Left = CellSaya.Left
    .Width = CellSaya.Width
    .Height = CellSaya.Height
    .Name = "GB_" & CellSaya.Address(False, False)
End With
IMAGE = ""
End Function

Untuk menggunakan UDF ini cukup ketikan Image disertai dengan Alamat gambar yang akan ditampilkan.

Leave a Reply

Your email address will not be published. Required fields are marked *