userformdaki image hk.

[bfc41]

iyigünler dilerim. forumdaki resim ekleme ile alakalı hemen hemen tüm mesajları inceledim. fakat excel çalışma sayfasında mevcut olan resimleri userforma almayı başaramadım. yani başka bir klasörden resim çağırmak istemiyorum. zaten sayfa3 de 50 tane personel resmi var. her resim tc kimlik numarası ile adlandırılmış. ben userformumda image1 nesnesine tc numarasına göre sayfa3 deki resmini çağırmak istiyorum. acaba çok zor bişeymi? yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[hamitcan]

Örnek dosya ekleyin.

 

[bfc41]

iyigünler dilerim. forumdaki resim ekleme ile alakalı hemen hemen tüm mesajları inceledim. fakat excel çalışma sayfasında mevcut olan resimleri userforma almayı başaramadım. yani başka bir klasörden resim çağırmak istemiyorum. zaten sayfa3 de 50 tane personel resmi var. her resim tc kimlik numarası ile adlandırılmış. ben userformumda image1 nesnesine tc numarasına göre sayfa3 deki resmini çağırmak istiyorum. acaba çok zor bişeymi? yardım edecek arkadaşlara şimdiden teşekkür ederim.

dosya ekte

 

[Orion1]

dosyanız ektedir.

Private Sub GetPicture1(MyShape As String)
  Dim MyChart As Chart
  Dim TempFile As String
  If resimsayac = 1 Then Exit Sub
  TempFile = "Temp.jpg"
  Sheets("sayfa2").Shapes(MyShape).CopyPicture xlScreen, xlBitmap
  Set MyChart = ActiveSheet.ChartObjects.Add(1, 1, 60, 69).Chart
  With MyChart
      .Paste
      .Export TempFile
      .Parent.Delete
  End With
  Image1.Picture = LoadPicture(TempFile)
  Kill TempFile
  Set MyChart = Nothing
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex >= 0 Then
    Call GetPicture1(ComboBox1.Text)
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
With Sheets("Sayfa1")
    ComboBox1.AddItem .Range("A1").Value
    ComboBox1.AddItem .Range("A2").Value
    ComboBox1.AddItem .Range("A3").Value
    ComboBox1.ListIndex = 0
End With
End Sub

 

[bfc41]

çok teşekkür ederim yardımınız için tam istediğim gibi olmuş. teşekkürler.