Menampilkan Grafik Pada UserForm dengan VBA

Pada Video kali ini, saya membuat tutorial untuk menampilkan Garpik yang dibuat pada Worksheet dan menampilkannya di Userform.

Script yang digunakan :

Sub LoadGrapik(SChart As String, ImgCtrl As Control)
Dim NmChart As Chart   
Dim NmFile As String    
NmFile = ThisWorkbook.Path & "\tmp1.Gif"  
Set NmChart = Sheet1.ChartObjects(SChart).Chart
NmChart.Export NmFile, "GIF"               
ImgCtrl.Picture = LoadPicture(NmFile)
End Sub

Untuk Penjelasan penggunaan script diatas, silahkan simak tutorialnya dibawah ini:

2



Leave a Reply

Your email address will not be published.


Comment


Name

Email

Url