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

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
List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search