KLASÖRDEN SEÇEREK SAYFAYA RESİM GETİRME

[hgenc545]

Merhabalar,

Excel sayfasına genelde hep dosya yolu belirtilerek resim getiriliyor, tek tuşla.. ben böyle olsun istemiyorum.
Klasör açılsın, resimi seçeyim ve tamam dediğimde sayfaya yapıştırsın.
Aşağıdaki kod userform'a bu işlemi yapıyor, direkt aktif sayfaya yüklemesi için yardımınızı rica ediyorum.
Yardımcı olursanız sevinirim.


Private Sub Makro1()

Dim Pencere As FileDialog
Set Pencere = Application.FileDialog(msoFileDialogOpen)
Pencere.Filters.Add "Resim Dosyaları", "*.png, .jpg, .jpeg"
If Pencere.Show <> 0 Then

Userform4.image1.Picture = LoadPicture(Pencere.SelectedItems(1))

End If

End Sub

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[hgenc545]

@muygun çok teşekkürler süper olmuş. Emeğinize sağlık, sadece bunu bir butona atayabilirmiyiz. Çünkü farklı bir bölgede butonla sayfa içine indireceğim, sayfada herhangi bir yere insede sorun olmaz...

 

[muygun]

Merhaba;
Butonlu örnek ekte
İyi çalışmalar.

 

[hgenc545]

@muygun çok teşekkürler üstad, harika oldu, elinize emeğinize sağlık.