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.
One thought on “UDF Image Formula”
Leave a Reply
User Defined Functions
20 Topics
Tutorial Lainnya
Assalamu’alaikum Bang Andi
Terima kasih ilmunya, sekedar tanya :
Bagaimana kode VBA tambahannya agar gambar menyesuaikan tinggi cell yang digabungkan (merge) ?
Terima kasih atas perhatiannya