[belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [3 Attachments]

classic Classic list List threaded Threaded
8 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [3 Attachments]

Milis Belajar Excel mailing list
Selamat siang Be-Excelers,
Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.) mengenai input dengan menggunakan UserForm.
Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input Form tsb yang link ke field Part. Jadi jika Part yang diisi ada dalam file gambar (satu folder dengan File Excel ybs. atau dalam folder tersendiri)  maka gambar dari part tsb. akan tampak pada field image yang ada dalam UserForm.
Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau ditambahkan perintah LoadPicture ?
Terima kasih.
Salam,HK

Form Asli.JPG (76K) Download Attachment
Yang diinginkan.JPG (88K) Download Attachment
ctv_UserForm_InputData(AA).xls (121K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Fw: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [3 Attachments]

Milis Belajar Excel mailing list
Ini even yang saya tambahakan pada ImgPart dan ketika diklik ada pesan:Sub or Function not defined

Private Sub ImgPart_Click()   Dim pfName As String   pfName = ThisWorkbook.Path & "\Part\" & TbPart.Value   ImgPart.Picture = LoadPicture(IIf(TbPart = "", "", pfName))End Sub

     
----- Forwarded Message -----
 From: "hendrik karnadi [hidden email] [belajar-excel]" <[hidden email]>
 To: "[hidden email]" <[hidden email]>
 Sent: Tuesday, 13 June 2017, 14:11
 Subject: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [3 Attachments]
   
    Selamat siang Be-Excelers,
Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.) mengenai input dengan menggunakan UserForm.
Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input Form tsb yang link ke field Part. Jadi jika Part yang diisi ada dalam file gambar (satu folder dengan File Excel ybs. atau dalam folder tersendiri)  maka gambar dari part tsb. akan tampak pada field image yang ada dalam UserForm.
Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau ditambahkan perintah LoadPicture ?
Terima kasih.
Salam,HK  #yiv1640218869 #yiv1640218869 -- #yiv1640218869ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1640218869 #yiv1640218869ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1640218869 #yiv1640218869ygrp-mkp #yiv1640218869hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1640218869 #yiv1640218869ygrp-mkp #yiv1640218869ads {margin-bottom:10px;}#yiv1640218869 #yiv1640218869ygrp-mkp .yiv1640218869ad {padding:0 0;}#yiv1640218869 #yiv1640218869ygrp-mkp .yiv1640218869ad p {margin:0;}#yiv1640218869 #yiv1640218869ygrp-mkp .yiv1640218869ad a {color:#0000ff;text-decoration:none;}#yiv1640218869 #yiv1640218869ygrp-sponsor #yiv1640218869ygrp-lc {font-family:Arial;}#yiv1640218869 #yiv1640218869ygrp-sponsor #yiv1640218869ygrp-lc #yiv1640218869hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1640218869 #yiv1640218869ygrp-sponsor #yiv1640218869ygrp-lc .yiv1640218869ad {margin-bottom:10px;padding:0 0;}#yiv1640218869 #yiv1640218869actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1640218869 #yiv1640218869activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1640218869 #yiv1640218869activity span {font-weight:700;}#yiv1640218869 #yiv1640218869activity span:first-child {text-transform:uppercase;}#yiv1640218869 #yiv1640218869activity span a {color:#5085b6;text-decoration:none;}#yiv1640218869 #yiv1640218869activity span span {color:#ff7900;}#yiv1640218869 #yiv1640218869activity span .yiv1640218869underline {text-decoration:underline;}#yiv1640218869 .yiv1640218869attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1640218869 .yiv1640218869attach div a {text-decoration:none;}#yiv1640218869 .yiv1640218869attach img {border:none;padding-right:5px;}#yiv1640218869 .yiv1640218869attach label {display:block;margin-bottom:5px;}#yiv1640218869 .yiv1640218869attach label a {text-decoration:none;}#yiv1640218869 blockquote {margin:0 0 0 4px;}#yiv1640218869 .yiv1640218869bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1640218869 .yiv1640218869bold a {text-decoration:none;}#yiv1640218869 dd.yiv1640218869last p a {font-family:Verdana;font-weight:700;}#yiv1640218869 dd.yiv1640218869last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1640218869 dd.yiv1640218869last p span.yiv1640218869yshortcuts {margin-right:0;}#yiv1640218869 div.yiv1640218869attach-table div div a {text-decoration:none;}#yiv1640218869 div.yiv1640218869attach-table {width:400px;}#yiv1640218869 div.yiv1640218869file-title a, #yiv1640218869 div.yiv1640218869file-title a:active, #yiv1640218869 div.yiv1640218869file-title a:hover, #yiv1640218869 div.yiv1640218869file-title a:visited {text-decoration:none;}#yiv1640218869 div.yiv1640218869photo-title a, #yiv1640218869 div.yiv1640218869photo-title a:active, #yiv1640218869 div.yiv1640218869photo-title a:hover, #yiv1640218869 div.yiv1640218869photo-title a:visited {text-decoration:none;}#yiv1640218869 div#yiv1640218869ygrp-mlmsg #yiv1640218869ygrp-msg p a span.yiv1640218869yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1640218869 .yiv1640218869green {color:#628c2a;}#yiv1640218869 .yiv1640218869MsoNormal {margin:0 0 0 0;}#yiv1640218869 o {font-size:0;}#yiv1640218869 #yiv1640218869photos div {float:left;width:72px;}#yiv1640218869 #yiv1640218869photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1640218869 #yiv1640218869photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1640218869 #yiv1640218869reco-category {font-size:77%;}#yiv1640218869 #yiv1640218869reco-desc {font-size:77%;}#yiv1640218869 .yiv1640218869replbq {margin:4px;}#yiv1640218869 #yiv1640218869ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1640218869 #yiv1640218869ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1640218869 #yiv1640218869ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1640218869 #yiv1640218869ygrp-mlmsg select, #yiv1640218869 input, #yiv1640218869 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1640218869 #yiv1640218869ygrp-mlmsg pre, #yiv1640218869 code {font:115% monospace;}#yiv1640218869 #yiv1640218869ygrp-mlmsg * {line-height:1.22em;}#yiv1640218869 #yiv1640218869ygrp-mlmsg #yiv1640218869logo {padding-bottom:10px;}#yiv1640218869 #yiv1640218869ygrp-msg p a {font-family:Verdana;}#yiv1640218869 #yiv1640218869ygrp-msg p#yiv1640218869attach-count span {color:#1E66AE;font-weight:700;}#yiv1640218869 #yiv1640218869ygrp-reco #yiv1640218869reco-head {color:#ff7900;font-weight:700;}#yiv1640218869 #yiv1640218869ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1640218869 #yiv1640218869ygrp-sponsor #yiv1640218869ov li a {font-size:130%;text-decoration:none;}#yiv1640218869 #yiv1640218869ygrp-sponsor #yiv1640218869ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1640218869 #yiv1640218869ygrp-sponsor #yiv1640218869ov ul {margin:0;padding:0 0 0 8px;}#yiv1640218869 #yiv1640218869ygrp-text {font-family:Georgia;}#yiv1640218869 #yiv1640218869ygrp-text p {margin:0 0 1em 0;}#yiv1640218869 #yiv1640218869ygrp-text tt {font-size:120%;}#yiv1640218869 #yiv1640218869ygrp-vital ul li:last-child {border-right:none !important;}#yiv1640218869

   

Form Asli.JPG (76K) Download Attachment
Yang diinginkan.JPG (88K) Download Attachment
ctv_UserForm_InputData(AA).xls (121K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [1 Attachment]

Milis Belajar Excel mailing list
Dear be-Exceler,Terlampir saya lampirkan file lengkap dalam bentuk WinRAR, yang terdiri dari:- Folder Pictures dalam format JPEG- File Asli yang belum ada Image Picture (ori)- File yang diinginkan yang sdh ada Image Picture (upd w Pic - Not Run)
Mohon bantuan teman2 yang berpengalaman dalam masalah UserForm.
Terima kasih atas bantuan teman2.
Salam,HK


      From: hendrik karnadi <[hidden email]>
 To: "[hidden email]" <[hidden email]>
 Sent: Tuesday, 13 June 2017, 17:12
 Subject: Fw: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [3 Attachments]
   
Ini even yang saya tambahakan pada ImgPart dan ketika diklik ada pesan:Sub or Function not defined

Private Sub ImgPart_Click()   Dim pfName As String   pfName = ThisWorkbook.Path & "\Part\" & TbPart.Value   ImgPart.Picture = LoadPicture(IIf(TbPart = "", "", pfName))End Sub

     
----- Forwarded Message -----
 From: "hendrik karnadi [hidden email] [belajar-excel]" <[hidden email]>
 To: "[hidden email]" <[hidden email]>
 Sent: Tuesday, 13 June 2017, 14:11
 Subject: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [3 Attachments]
   
    Selamat siang Be-Excelers,
Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.) mengenai input dengan menggunakan UserForm.
Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input Form tsb yang link ke field Part. Jadi jika Part yang diisi ada dalam file gambar (satu folder dengan File Excel ybs. atau dalam folder tersendiri)  maka gambar dari part tsb. akan tampak pada field image yang ada dalam UserForm.
Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau ditambahkan perintah LoadPicture ?
Terima kasih.
Salam,HK  #yiv1554475813 -- #yiv1554475813ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1554475813 #yiv1554475813ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1554475813 #yiv1554475813ygrp-mkp #yiv1554475813hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1554475813 #yiv1554475813ygrp-mkp #yiv1554475813ads {margin-bottom:10px;}#yiv1554475813 #yiv1554475813ygrp-mkp .yiv1554475813ad {padding:0 0;}#yiv1554475813 #yiv1554475813ygrp-mkp .yiv1554475813ad p {margin:0;}#yiv1554475813 #yiv1554475813ygrp-mkp .yiv1554475813ad a {color:#0000ff;text-decoration:none;}#yiv1554475813 #yiv1554475813ygrp-sponsor #yiv1554475813ygrp-lc {font-family:Arial;}#yiv1554475813 #yiv1554475813ygrp-sponsor #yiv1554475813ygrp-lc #yiv1554475813hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1554475813 #yiv1554475813ygrp-sponsor #yiv1554475813ygrp-lc .yiv1554475813ad {margin-bottom:10px;padding:0 0;}#yiv1554475813 #yiv1554475813actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1554475813 #yiv1554475813activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1554475813 #yiv1554475813activity span {font-weight:700;}#yiv1554475813 #yiv1554475813activity span:first-child {text-transform:uppercase;}#yiv1554475813 #yiv1554475813activity span a {color:#5085b6;text-decoration:none;}#yiv1554475813 #yiv1554475813activity span span {color:#ff7900;}#yiv1554475813 #yiv1554475813activity span .yiv1554475813underline {text-decoration:underline;}#yiv1554475813 .yiv1554475813attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1554475813 .yiv1554475813attach div a {text-decoration:none;}#yiv1554475813 .yiv1554475813attach img {border:none;padding-right:5px;}#yiv1554475813 .yiv1554475813attach label {display:block;margin-bottom:5px;}#yiv1554475813 .yiv1554475813attach label a {text-decoration:none;}#yiv1554475813 blockquote {margin:0 0 0 4px;}#yiv1554475813 .yiv1554475813bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1554475813 .yiv1554475813bold a {text-decoration:none;}#yiv1554475813 dd.yiv1554475813last p a {font-family:Verdana;font-weight:700;}#yiv1554475813 dd.yiv1554475813last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1554475813 dd.yiv1554475813last p span.yiv1554475813yshortcuts {margin-right:0;}#yiv1554475813 div.yiv1554475813attach-table div div a {text-decoration:none;}#yiv1554475813 div.yiv1554475813attach-table {width:400px;}#yiv1554475813 div.yiv1554475813file-title a, #yiv1554475813 div.yiv1554475813file-title a:active, #yiv1554475813 div.yiv1554475813file-title a:hover, #yiv1554475813 div.yiv1554475813file-title a:visited {text-decoration:none;}#yiv1554475813 div.yiv1554475813photo-title a, #yiv1554475813 div.yiv1554475813photo-title a:active, #yiv1554475813 div.yiv1554475813photo-title a:hover, #yiv1554475813 div.yiv1554475813photo-title a:visited {text-decoration:none;}#yiv1554475813 div#yiv1554475813ygrp-mlmsg #yiv1554475813ygrp-msg p a span.yiv1554475813yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1554475813 .yiv1554475813green {color:#628c2a;}#yiv1554475813 .yiv1554475813MsoNormal {margin:0 0 0 0;}#yiv1554475813 o {font-size:0;}#yiv1554475813 #yiv1554475813photos div {float:left;width:72px;}#yiv1554475813 #yiv1554475813photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1554475813 #yiv1554475813photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1554475813 #yiv1554475813reco-category {font-size:77%;}#yiv1554475813 #yiv1554475813reco-desc {font-size:77%;}#yiv1554475813 .yiv1554475813replbq {margin:4px;}#yiv1554475813 #yiv1554475813ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1554475813 #yiv1554475813ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1554475813 #yiv1554475813ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1554475813 #yiv1554475813ygrp-mlmsg select, #yiv1554475813 input, #yiv1554475813 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1554475813 #yiv1554475813ygrp-mlmsg pre, #yiv1554475813 code {font:115% monospace;}#yiv1554475813 #yiv1554475813ygrp-mlmsg * {line-height:1.22em;}#yiv1554475813 #yiv1554475813ygrp-mlmsg #yiv1554475813logo {padding-bottom:10px;}#yiv1554475813 #yiv1554475813ygrp-msg p a {font-family:Verdana;}#yiv1554475813 #yiv1554475813ygrp-msg p#yiv1554475813attach-count span {color:#1E66AE;font-weight:700;}#yiv1554475813 #yiv1554475813ygrp-reco #yiv1554475813reco-head {color:#ff7900;font-weight:700;}#yiv1554475813 #yiv1554475813ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1554475813 #yiv1554475813ygrp-sponsor #yiv1554475813ov li a {font-size:130%;text-decoration:none;}#yiv1554475813 #yiv1554475813ygrp-sponsor #yiv1554475813ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1554475813 #yiv1554475813ygrp-sponsor #yiv1554475813ov ul {margin:0;padding:0 0 0 8px;}#yiv1554475813 #yiv1554475813ygrp-text {font-family:Georgia;}#yiv1554475813 #yiv1554475813ygrp-text p {margin:0 0 1em 0;}#yiv1554475813 #yiv1554475813ygrp-text tt {font-size:120%;}#yiv1554475813 #yiv1554475813ygrp-vital ul li:last-child {border-right:none !important;}#yiv1554475813

   

   

ctv_UserForm_InputData(AA).rar (175K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Dear Pak HK,

Perlu perintah pasang gambar ke image control (properti picture) dengan
menggunakan fungsi LoadPicture

Regards,
Kid


2017-06-13 14:11 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Selamat siang Be-Excelers,
>
> Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.)
> mengenai input dengan menggunakan UserForm.
>
> Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input
> Form tsb yang link ke field Part. Jadi jika Part yang diisi *ada* dalam
> file gambar (satu folder dengan File Excel ybs. atau dalam folder
> tersendiri)  maka gambar dari part tsb. akan *tampak* pada field image
> yang ada dalam UserForm.
>
> Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau
> ditambahkan perintah LoadPicture ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu

Milis Belajar Excel mailing list
Dear Mr. Kid,
Justru perintah pasang gambarnya itu yang sy blm dapat Mr Kid.
Terima kasih.
Salam,HK

Sent from Yahoo Mail on Android
 
  On Wed, Jun 14, 2017 at 11:20, 'Mr. Kid' [hidden email] [belajar-excel]<[hidden email]> wrote:      

Dear Pak HK,

Perlu perintah pasang gambar ke image control (properti picture) dengan menggunakan fungsi LoadPicture

Regards,
Kid


2017-06-13 14:11 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

Selamat siang Be-Excelers,
Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.) mengenai input dengan menggunakan UserForm.
Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input Form tsb yang link ke field Part. Jadi jika Part yang diisi ada dalam file gambar (satu folder dengan File Excel ybs. atau dalam folder tersendiri)  maka gambar dari part tsb. akan tampak pada field image yang ada dalam UserForm.
Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau ditambahkan perintah LoadPicture ?
Terima kasih.
Salam,HK

   

  #yiv2382749588 #yiv2382749588 -- #yiv2382749588ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2382749588 #yiv2382749588ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2382749588 #yiv2382749588ygrp-mkp #yiv2382749588hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2382749588 #yiv2382749588ygrp-mkp #yiv2382749588ads {margin-bottom:10px;}#yiv2382749588 #yiv2382749588ygrp-mkp .yiv2382749588ad {padding:0 0;}#yiv2382749588 #yiv2382749588ygrp-mkp .yiv2382749588ad p {margin:0;}#yiv2382749588 #yiv2382749588ygrp-mkp .yiv2382749588ad a {color:#0000ff;text-decoration:none;}#yiv2382749588 #yiv2382749588ygrp-sponsor #yiv2382749588ygrp-lc {font-family:Arial;}#yiv2382749588 #yiv2382749588ygrp-sponsor #yiv2382749588ygrp-lc #yiv2382749588hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2382749588 #yiv2382749588ygrp-sponsor #yiv2382749588ygrp-lc .yiv2382749588ad {margin-bottom:10px;padding:0 0;}#yiv2382749588 #yiv2382749588actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2382749588 #yiv2382749588activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2382749588 #yiv2382749588activity span {font-weight:700;}#yiv2382749588 #yiv2382749588activity span:first-child {text-transform:uppercase;}#yiv2382749588 #yiv2382749588activity span a {color:#5085b6;text-decoration:none;}#yiv2382749588 #yiv2382749588activity span span {color:#ff7900;}#yiv2382749588 #yiv2382749588activity span .yiv2382749588underline {text-decoration:underline;}#yiv2382749588 .yiv2382749588attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2382749588 .yiv2382749588attach div a {text-decoration:none;}#yiv2382749588 .yiv2382749588attach img {border:none;padding-right:5px;}#yiv2382749588 .yiv2382749588attach label {display:block;margin-bottom:5px;}#yiv2382749588 .yiv2382749588attach label a {text-decoration:none;}#yiv2382749588 blockquote {margin:0 0 0 4px;}#yiv2382749588 .yiv2382749588bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2382749588 .yiv2382749588bold a {text-decoration:none;}#yiv2382749588 dd.yiv2382749588last p a {font-family:Verdana;font-weight:700;}#yiv2382749588 dd.yiv2382749588last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2382749588 dd.yiv2382749588last p span.yiv2382749588yshortcuts {margin-right:0;}#yiv2382749588 div.yiv2382749588attach-table div div a {text-decoration:none;}#yiv2382749588 div.yiv2382749588attach-table {width:400px;}#yiv2382749588 div.yiv2382749588file-title a, #yiv2382749588 div.yiv2382749588file-title a:active, #yiv2382749588 div.yiv2382749588file-title a:hover, #yiv2382749588 div.yiv2382749588file-title a:visited {text-decoration:none;}#yiv2382749588 div.yiv2382749588photo-title a, #yiv2382749588 div.yiv2382749588photo-title a:active, #yiv2382749588 div.yiv2382749588photo-title a:hover, #yiv2382749588 div.yiv2382749588photo-title a:visited {text-decoration:none;}#yiv2382749588 div#yiv2382749588ygrp-mlmsg #yiv2382749588ygrp-msg p a span.yiv2382749588yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2382749588 .yiv2382749588green {color:#628c2a;}#yiv2382749588 .yiv2382749588MsoNormal {margin:0 0 0 0;}#yiv2382749588 o {font-size:0;}#yiv2382749588 #yiv2382749588photos div {float:left;width:72px;}#yiv2382749588 #yiv2382749588photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv2382749588 #yiv2382749588photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2382749588 #yiv2382749588reco-category {font-size:77%;}#yiv2382749588 #yiv2382749588reco-desc {font-size:77%;}#yiv2382749588 .yiv2382749588replbq {margin:4px;}#yiv2382749588 #yiv2382749588ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2382749588 #yiv2382749588ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2382749588 #yiv2382749588ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2382749588 #yiv2382749588ygrp-mlmsg select, #yiv2382749588 input, #yiv2382749588 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2382749588 #yiv2382749588ygrp-mlmsg pre, #yiv2382749588 code {font:115% monospace;}#yiv2382749588 #yiv2382749588ygrp-mlmsg * {line-height:1.22em;}#yiv2382749588 #yiv2382749588ygrp-mlmsg #yiv2382749588logo {padding-bottom:10px;}#yiv2382749588 #yiv2382749588ygrp-msg p a {font-family:Verdana;}#yiv2382749588 #yiv2382749588ygrp-msg p#yiv2382749588attach-count span {color:#1E66AE;font-weight:700;}#yiv2382749588 #yiv2382749588ygrp-reco #yiv2382749588reco-head {color:#ff7900;font-weight:700;}#yiv2382749588 #yiv2382749588ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2382749588 #yiv2382749588ygrp-sponsor #yiv2382749588ov li a {font-size:130%;text-decoration:none;}#yiv2382749588 #yiv2382749588ygrp-sponsor #yiv2382749588ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2382749588 #yiv2382749588ygrp-sponsor #yiv2382749588ov ul {margin:0;padding:0 0 0 8px;}#yiv2382749588 #yiv2382749588ygrp-text {font-family:Georgia;}#yiv2382749588 #yiv2382749588ygrp-text p {margin:0 0 1em 0;}#yiv2382749588 #yiv2382749588ygrp-text tt {font-size:120%;}#yiv2382749588 #yiv2382749588ygrp-vital ul li:last-child {border-right:none !important;}#yiv2382749588  
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: Fw: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Hai Pak HK,

Pesan tersebut berarti ada runtime yang tidak dikenal. Sepertinya fungsi
LoadPicture yang tidak dikenal.
Fungsi LoadPicture membutuhkan library stdole2 (biasanya memiliki deskripsi
OLE Automation). Jadi, pastikan referensi ke OLE Automation (stdole2)
tercentang.

Regards,
Kid



On Tue, Jun 13, 2017 at 5:12 PM, hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
> Ini even yang saya tambahakan pada ImgPart dan ketika diklik ada pesan:
> *Sub or Function not defined*
>
> Private Sub ImgPart_Click()
>    Dim pfName As String
>    pfName = ThisWorkbook.Path & "\Part\" & TbPart.Value
>    ImgPart.Picture = LoadPicture(IIf(TbPart = "", "", pfName))
> End Sub
>
>
>
> ----- Forwarded Message -----
> *From:* "hendrik karnadi [hidden email] [belajar-excel]" <
> [hidden email]>
> *To:* "[hidden email]" <[hidden email]>
> *Sent:* Tuesday, 13 June 2017, 14:11
> *Subject:* [belajar-excel] Image (JPEG) di dalam UserForm yang link ke
> field tertentu [3 Attachments]
>
>
> Selamat siang Be-Excelers,
>
> Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.)
> mengenai input dengan menggunakan UserForm.
>
> Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input
> Form tsb yang link ke field Part. Jadi jika Part yang diisi *ada* dalam
> file gambar (satu folder dengan File Excel ybs. atau dalam folder
> tersendiri)  maka gambar dari part tsb. akan *tampak* pada field image
> yang ada dalam UserForm.
>
> Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau
> ditambahkan perintah LoadPicture ?
>
> Terima kasih.
>
> Salam,
> HK
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

RE: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [1 Attachment]

Milis Belajar Excel mailing list
In reply to this post by Milis Belajar Excel mailing list
Pak HK, File terlampir semoga bisa membantu.

Regards,
Tio

From: [hidden email] [mailto:[hidden email]]
Sent: Wednesday, June 14, 2017 11:20 AM
To: BeExcel
Subject: Re: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu


Dear Pak HK,
Perlu perintah pasang gambar ke image control (properti picture) dengan menggunakan fungsi LoadPicture
Regards,
Kid

2017-06-13 14:11 GMT+07:00 hendrik karnadi [hidden email]<mailto:[hidden email]> [belajar-excel] <[hidden email]<mailto:[hidden email]>>:

Selamat siang Be-Excelers,

Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.) mengenai input dengan menggunakan UserForm.

Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input Form tsb yang link ke field Part. Jadi jika Part yang diisi ada dalam file gambar (satu folder dengan File Excel ybs. atau dalam folder tersendiri)  maka gambar dari part tsb. akan tampak pada field image yang ada dalam UserForm.

Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau ditambahkan perintah LoadPicture ?

Terima kasih.

Salam,
HK



~WRD000.jpg (1K) Download Attachment
image001.jpg (582 bytes) Download Attachment
image002.jpg (496 bytes) Download Attachment
image003.jpg (458 bytes) Download Attachment
Insert Picture.zip (95K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu

Milis Belajar Excel mailing list
Dear Tio,
Terima kasih atas jawabannya.Inilah yang membuat saya "penasaran" mengenai perintah LoadPicture.Jika berdiri sendiri tanpa field yang lain seperti yang anda contohkan (pernah dicontohkan juga oleh Mbak CTV) bisa berjalan dengan baik tetapi mengapa kalau digabungkan dengan field yang lain ada Pesan kesalahan "Sub or Function not defined".
Apakah ada perintah lain selain LoadPicture yang bisa menampilkan gambar di dalam Form melalui even CbPart_Change atau ImgPart_Click ?
Terima kasih.
Salam,HK
      From: "Tio Adi Bayu Adjie [hidden email] [belajar-excel]" <[hidden email]>
 To: [hidden email]
 Sent: Wednesday, 14 June 2017, 16:34
 Subject: RE: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu [1 Attachment]
   
    Pak HK, File terlampir semoga bisa membantu.    Regards, Tio    From: [hidden email] [mailto:[hidden email]]
Sent: Wednesday, June 14, 2017 11:20 AM
To: BeExcel
Subject: Re: [belajar-excel] Image (JPEG) di dalam UserForm yang link ke field tertentu       Dear Pak HK, Perlu perintah pasang gambar ke image control (properti picture) dengan menggunakan fungsi LoadPicture Regards, Kid    2017-06-13 14:11 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:    Selamat siang Be-Excelers,    Saya sedang mengutak atik file terlampir, warisan dari mbak CTV (alm.) mengenai input dengan menggunakan UserForm.    Di dalam contoh terlampir, saya ingin menampilkan image (JPEG) dalam Input Form tsb yang link ke field Part. Jadi jika Part yang diisiada dalam file gambar (satu folder dengan File Excel ybs. atau dalam folder tersendiri)  maka gambar dari part tsb. akantampak pada field image yang ada dalam UserForm.    Bagaimana caranya, apakah cukup ditambahkan di property image tsb. atau ditambahkan perintah LoadPicture ?    Terima kasih.    Salam, HK       #yiv6226182109 #yiv6226182109 -- #yiv6226182109ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6226182109 #yiv6226182109ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6226182109 #yiv6226182109ygrp-mkp #yiv6226182109hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6226182109 #yiv6226182109ygrp-mkp #yiv6226182109ads {margin-bottom:10px;}#yiv6226182109 #yiv6226182109ygrp-mkp .yiv6226182109ad {padding:0 0;}#yiv6226182109 #yiv6226182109ygrp-mkp .yiv6226182109ad p {margin:0;}#yiv6226182109 #yiv6226182109ygrp-mkp .yiv6226182109ad a {color:#0000ff;text-decoration:none;}#yiv6226182109 #yiv6226182109ygrp-sponsor #yiv6226182109ygrp-lc {font-family:Arial;}#yiv6226182109 #yiv6226182109ygrp-sponsor #yiv6226182109ygrp-lc #yiv6226182109hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6226182109 #yiv6226182109ygrp-sponsor #yiv6226182109ygrp-lc .yiv6226182109ad {margin-bottom:10px;padding:0 0;}#yiv6226182109 #yiv6226182109actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6226182109 #yiv6226182109activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6226182109 #yiv6226182109activity span {font-weight:700;}#yiv6226182109 #yiv6226182109activity span:first-child {text-transform:uppercase;}#yiv6226182109 #yiv6226182109activity span a {color:#5085b6;text-decoration:none;}#yiv6226182109 #yiv6226182109activity span span {color:#ff7900;}#yiv6226182109 #yiv6226182109activity span .yiv6226182109underline {text-decoration:underline;}#yiv6226182109 .yiv6226182109attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6226182109 .yiv6226182109attach div a {text-decoration:none;}#yiv6226182109 .yiv6226182109attach img {border:none;padding-right:5px;}#yiv6226182109 .yiv6226182109attach label {display:block;margin-bottom:5px;}#yiv6226182109 .yiv6226182109attach label a {text-decoration:none;}#yiv6226182109 blockquote {margin:0 0 0 4px;}#yiv6226182109 .yiv6226182109bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6226182109 .yiv6226182109bold a {text-decoration:none;}#yiv6226182109 dd.yiv6226182109last p a {font-family:Verdana;font-weight:700;}#yiv6226182109 dd.yiv6226182109last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6226182109 dd.yiv6226182109last p span.yiv6226182109yshortcuts {margin-right:0;}#yiv6226182109 div.yiv6226182109attach-table div div a {text-decoration:none;}#yiv6226182109 div.yiv6226182109attach-table {width:400px;}#yiv6226182109 div.yiv6226182109file-title a, #yiv6226182109 div.yiv6226182109file-title a:active, #yiv6226182109 div.yiv6226182109file-title a:hover, #yiv6226182109 div.yiv6226182109file-title a:visited {text-decoration:none;}#yiv6226182109 div.yiv6226182109photo-title a, #yiv6226182109 div.yiv6226182109photo-title a:active, #yiv6226182109 div.yiv6226182109photo-title a:hover, #yiv6226182109 div.yiv6226182109photo-title a:visited {text-decoration:none;}#yiv6226182109 div#yiv6226182109ygrp-mlmsg #yiv6226182109ygrp-msg p a span.yiv6226182109yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6226182109 .yiv6226182109green {color:#628c2a;}#yiv6226182109 .yiv6226182109MsoNormal {margin:0 0 0 0;}#yiv6226182109 o {font-size:0;}#yiv6226182109 #yiv6226182109photos div {float:left;width:72px;}#yiv6226182109 #yiv6226182109photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6226182109 #yiv6226182109photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6226182109 #yiv6226182109reco-category {font-size:77%;}#yiv6226182109 #yiv6226182109reco-desc {font-size:77%;}#yiv6226182109 .yiv6226182109replbq {margin:4px;}#yiv6226182109 #yiv6226182109ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6226182109 #yiv6226182109ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6226182109 #yiv6226182109ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6226182109 #yiv6226182109ygrp-mlmsg select, #yiv6226182109 input, #yiv6226182109 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6226182109 #yiv6226182109ygrp-mlmsg pre, #yiv6226182109 code {font:115% monospace;}#yiv6226182109 #yiv6226182109ygrp-mlmsg * {line-height:1.22em;}#yiv6226182109 #yiv6226182109ygrp-mlmsg #yiv6226182109logo {padding-bottom:10px;}#yiv6226182109 #yiv6226182109ygrp-msg p a {font-family:Verdana;}#yiv6226182109 #yiv6226182109ygrp-msg p#yiv6226182109attach-count span {color:#1E66AE;font-weight:700;}#yiv6226182109 #yiv6226182109ygrp-reco #yiv6226182109reco-head {color:#ff7900;font-weight:700;}#yiv6226182109 #yiv6226182109ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6226182109 #yiv6226182109ygrp-sponsor #yiv6226182109ov li a {font-size:130%;text-decoration:none;}#yiv6226182109 #yiv6226182109ygrp-sponsor #yiv6226182109ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6226182109 #yiv6226182109ygrp-sponsor #yiv6226182109ov ul {margin:0;padding:0 0 0 8px;}#yiv6226182109 #yiv6226182109ygrp-text {font-family:Georgia;}#yiv6226182109 #yiv6226182109ygrp-text p {margin:0 0 1em 0;}#yiv6226182109 #yiv6226182109ygrp-text tt {font-size:120%;}#yiv6226182109 #yiv6226182109ygrp-vital ul li:last-child {border-right:none !important;}#yiv6226182109

   
Loading...