Microsoft Excel adalah salah satu aplikasi yang sangat populer di dunia bisnis maupun akademik. Namun, meskipun Excel sudah ada sejak lama dan banyak digunakan oleh banyak orang, masih ada banyak orang yang belum paham betul tentang cara menggunakan aplikasi ini. Terutama dalam hal memasukkan gambar ke dalam sheet Excel. Nah, dalam artikel ini kita akan membahas tentang cara menyisipkan gambar di Excel secara otomatis.
Pertama-tama, untuk memasukkan gambar di Excel secara otomatis, kita perlu membuat sebuah script atau kode VBA (Visual Basic for Applications) yang akan menghandle masalah ini. VBA adalah bahasa pemrograman yang dikembangkan oleh Microsoft untuk mengakses fitur-fitur dari aplikasi seperti Excel, Word, dan PowerPoint. Untuk membuat kode VBA, kita perlu membuka macro editor di Excel. Langkah ini dapat dilakukan dengan cara klik tab “Developer” (jika tab ini tidak muncul, kita perlu mengaktifkannya terlebih dahulu), lalu klik ikon “Visual Basic” di sebelah kiri atas.
Setelah macro editor terbuka, kita perlu menuliskan kode VBA yang akan menyisipkan gambar secara otomatis. Kode VBA ini akan mengambil gambar dari sebuah folder di komputer kita, dan kemudian meletakkannya di sheet Excel yang sedang aktif. Berikut adalah contoh kode VBA untuk menyisipkan gambar di Excel secara otomatis:
“`
Sub InsertPictures()
Dim myPicturePath As String
Dim c As Range
Dim myPictures() As String
Dim i As Integer
myPicturePath = “C:\MyPictures\”
‘List all picture files in specified directory
myPictures = GetAllPictures(myPicturePath)
‘Loop through all cells in active worksheet
For Each c In ActiveSheet.UsedRange.Cells
If c.Value <> “” Then
‘Set picture for this cell
SetPicture c, myPictures(i Mod UBound(myPictures) + 1)
i = i + 1
End If
Next c
End Sub
Function GetAllPictures(ByVal myFolderPath As String) As String()
Dim myFile As String
Dim myPictures() As String
Dim i As Integer
‘List all files in specified directory
myFile = Dir(myFolderPath & “*.*”, vbDirectory)
While myFile <> “”
If Right(myFile, 3) = “jpg” Or Right(myFile, 3) = “png” Then
ReDim Preserve myPictures(i)
‘Store picture filename in array
myPictures(i) = myFolderPath & myFile
i = i + 1
End If
myFile = Dir
Wend
GetAllPictures = myPictures
End Function
Sub SetPicture(ByVal c As Range, ByVal myPicture As String)
Dim myLeft As Double
Dim myTop As Double
Dim myWidth As Double
Dim myHeight As Double
‘Get cell position and size
myLeft = c.Left
myTop = c.Top
myWidth = c.Width
myHeight = c.Height
‘Insert picture
With ActiveSheet.Pictures.Insert(myPicture)
.Left = myLeft
.Top = myTop
.Width = myWidth
.Height = myHeight
.Placement = xlMoveAndSize
End With
End Sub
“`
Kode di atas akan menyisipkan gambar-gambar dari sebuah folder di komputer kita ke sheet Excel yang sedang aktif. Letakkan kode di atas pada macro editor dan jalankan (run) kode tersebut. Setelah itu, gambar-gambar akan muncul secara otomatis di sheet Excel.
Namun, agar lebih mudah dan otomatis, kita dapat menambahkan kode VBA tersebut ke dalam event Worksheet_Change, sehingga gambar-gambar akan muncul secara otomatis setiap kali ada perubahan data di worksheet. Berikut adalah kode VBA untuk menambahkan script VBA ke dalam event Worksheet_Change pada sheet:
“`
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.UsedRange) Is Nothing Then
InsertPictures
End If
End Sub
“`
Dengan kode VBA tersebut, gambar-gambar akan muncul secara otomatis setiap kali terjadi perubahan pada data di sheet, sehingga kita tidak perlu menjalankan script VBA secara manual setiap kali ingin menyisipkan gambar di Excel.
Selain cara di atas, terdapat pula cara lain untuk menyisipkan gambar di Excel secara otomatis. Salah satunya adalah menggunakan fitur “Insert Picture” yang sudah disediakan oleh Excel. Fitur ini dapat diakses dengan cara klik tab “Insert” di ribbon Excel, lalu klik ikon “Picture”. Setelah itu, Excel akan membuka file explorer di mana kita dapat memilih gambar yang ingin disisipkan. Pilih gambar yang diinginkan, lalu klik “Insert”. Gambar akan muncul di worksheet Excel, dan kita dapat mengatur ukuran dan posisi gambar tersebut sesuai dengan keinginan.
Namun, metode ini akan lebih lambat dan kurang efisien jika jumlah gambar yang ingin disisipkan sangat banyak. Oleh karena itu, sebaiknya kita menggunakan metode yang lebih efisien seperti menggunakan script VBA seperti yang sudah dijelaskan sebelumnya.
FAQ
Q: Bagaimana cara menambahkan banyak gambar secara otomatis pada Excel?
A: Salah satu cara untuk menyisipkan banyak gambar secara otomatis di Excel adalah dengan menggunakan kode VBA seperti yang sudah dijelaskan di atas. Kode ini akan mengambil gambar dari sebuah folder di komputer kita, dan kemudian meletakkannya di sheet Excel yang sedang aktif.
Q: Bagaimana jika saya ingin menambahkan gambar dari Internet ke dalam Excel?
A: Kita dapat menambahkan gambar dari Internet ke dalam Excel dengan cara menggunakan fitur “Insert Picture” atau dengan menggunakan kode VBA yang akan mengambil gambar dari sebuah URL. Namun, perlu diingat bahwa cara ini memerlukan koneksi internet yang stabil dan cepat agar gambar dapat muncul di worksheet Excel secara baik dan benar.
Video Tutorial
Berikut adalah video tutorial tentang cara menyisipkan gambar di Excel secara otomatis menggunakan script VBA:
[Embed Youtube Video: https://www.youtube.com/watch?v=VbaEWilIIrc]Siapkan folder yang akan dijadikan tempat untuk menyimpan gambar yang akan disisipkan, lalu buatlah script VBA seperti yang sudah dijelaskan di atas. Kemudian jalankan script tersebut dan gambar-gambar akan muncul secara otomatis di worksheet Excel. Semoga tutorial ini bermanfaat dan dapat membantu Anda dalam memasukkan gambar di Excel dengan lebih mudah dan cepat.
