gambar tak dapat muncul

  1. 4 minggu lalu

    Private Sub UserForm_activate()
    Me.Image2.Picture = LoadPicture(Sheet1.Range("H2"))
    End Sub

    mohon petunjuk penyebab gambar tak bisa timbul .
    catatan file gambar satu folder dengan file Excelnya

  2. Caton

    Nov 11 Terverifikasi Indonesia + 15.169 Poin

    @waluyo ...

    Isi dari sel H2 apa? Kalau isi sel H2 hanya nama filenya saja, kemungkinan akan menimbulkan kesalahan (Error). Kalau isi sel H2 berupa nama folder dan nama filenya (lengkap), mungkin tipe file gambarnya yang tidak didukung (misalkan PNG)...

    Paling tidak, lampirkan file yang bermasalah agar bisa dipelajari dan ditelusuri masalahnya.

    Demikian.

  3. ini saya lampirkan file nya untuk userform 1 dan 2 menggunakan code yang mas @Caton kasih tak masalah gambar muncul , hanya nanti kalau guru lain yang belum tahu VBA tak dapat mengisi untuk userform 3 dan selanjutnya saya coba dengan code :
    Image2.Picture = LoadPicture(Sheet1.Range("h2"))
    Image3.Picture = LoadPicture(Sheet1.Range("i2"))
    Image4.Picture = LoadPicture(Sheet1.Range("j2"))
    Image5.Picture = LoadPicture(Sheet1.Range("k2"))
    kode ini pernah berfungsi namun selanjutnya Error Run-Time error 53

  4. Caton

    Nov 12 Terverifikasi Indonesia + 15.169 Poin

    @waluyo ...

    Runtime Error 53 = File Not Found ...

    Sudah bisa ditebak khan masalahnya apa? Ringkasnya, file gambar yang akan dimuat ke dalam kontrol Image tidak ada atau tidak dapat ditemukan. Sebagaimana yang telah saya sampaikan:

    ... Kalau isi sel H2 hanya nama filenya saja, kemungkinan akan menimbulkan kesalahan (Error) ...

    Pada script berikut :

    Image2.Picture = LoadPicture(Sheet1.Range("h2"))

    jika kita ekspansi maka akan menjadi :

    Image2.Picture = LoadPicture("mangga.jpg")

    Masalahnya, fungsi LoadPicture tidak dapat menemukan dimana lokasi aktual file gambar mangga.jpg berada. Solusinya, sebagaimana yang telah saya contohkan, tambahkan folder lokasi gambar tersebut. Misalkan:

    Private Sub UserForm_Activate()
        Dim sFolder As String
        
        '+-- Tambahkan folder lokasi gambar!
        sFolder = "c:\picture\Gambarulangan\"
    
        Image2.Picture = LoadPicture(sFolder & Sheet1.Range("H2"))
        Image3.Picture = LoadPicture(sFolder & Sheet1.Range("I2"))
        Image4.Picture = LoadPicture(sFolder & Sheet1.Range("J2"))
        Image5.Picture = LoadPicture(sFolder & Sheet1.Range("H2"))
    
        Label1.Caption = Sheet1.Range("B4").Value
        Label2.Caption = Sheet1.Range("C4").Value
        Label3.Caption = Sheet1.Range("D4").Value
        Label4.Caption = Sheet1.Range("E4").Value
        Label5.Caption = Sheet1.Range("F4").Value
    
    End Sub

    Demikian.

  5. Termakasih atas bantuannyaMas @Caton

 

atau Mendaftar untuk ikut berdiskusi!