[belajar-excel] Mohon dibantu untuk menampilkan FILE PDF pada TextBox

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Mohon dibantu untuk menampilkan FILE PDF pada TextBox

yusman
Dear Rekan2 Sekalian,
 

 Mohon dibantu untuk menampilkan FILE PDF pada TextBox.
 Mohon dibantu scriptnya, yang saya punya script untuk menampilkan gambar berikut:
 

  Dim EmpFound As Range
       Dim fPath As String
     'MENAMPILKAN GAMBAR
     With Range("Tampil_Data")
         Set EmpFound = .Find(TextBox3.Value)
         On Error Resume Next
         If EmpFound Is Nothing Then
             Image1.Picture = LoadPicture(fPath & "nopic.gif")
         Else
             With EmpFound
                 'Look in the directory where this workbook is located.
                 fPath = ThisWorkbook.Path & "\"
                 On Error Resume Next
                 'If a matching picture is found then display it.
                 Image1.Picture = LoadPicture(fPath & "\" & TextBox2.Value & ".jpg")
                 'If No picture found then display the default picture.
                 If Err = 0 Then Exit Sub
                 Image1.Picture = LoadPicture(fPath & "nopic.gif")
     End With
     End If
     End With
     Set EmpFound = Nothing
     With ComboBox34
         If lstDT.ListIndex <> -1 Then
             TextBox2.Text = lstDT.Text
            .Text = lstDT.Value
         Else
             TextBox2.Text = vbNullString
             .Text = vbNullString
             .ListIndex = -1
             .BackColor = vbWhite
         End If
     End With
 

 

 

 Kiranya Bisa Dibantu script untuk menampilkan File PDF ke TextBox
 

 

 

 

 

 REgards,
 Roni