• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım vba dataki resim çekme hk (Soru?)

Faulkner

Yeni Üye
Katılım
1 Eyl 2018
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
35
Konum
Çorlu
Ad Soyad
Ali ABACI
Merhaba,

VBA Form da Resim sutünün da excel datadan fotoğraf çekme nasıl yapabilirim?



1585809656264.png
 

Ekli dosyalar

  • Boş Proforma - D.A. - V1 - Forum (1).xlsm
    48.4 KB · Görüntüleme: 4

muygun

Uzman
Katılım
19 Ağu 2018
Mesajlar
439
En iyi yanıt
29
Puanları
43
Konum
Excel 2003
Ad Soyad
Mustafa UYGUN
Office Vers.
Office 2003
Merhaba;
Resimleri bir klasör içine isimno.jpg (15282.jpg.. gibi) olarak kaydederek ve bu klasörden resimleri userformda image1 e getirme gibi bir çalışma işinizi görür mü?
Böyle bir çalışma işimi görür derseniz bir örnek yapabilirim.
 

Faulkner

Yeni Üye
Katılım
1 Eyl 2018
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
35
Konum
Çorlu
Ad Soyad
Ali ABACI
merhaba, cevabınız için teşekkürler, resimleri excel gömmem gerekiyor. Çünkü bu dosyayı en az 10 kişi kullanacak.

>benim istediğim yöntem excelden yapılamaz mı ? ben bunu excel sayfasında "ad yöneticisi" ile yapmıştım.
 

Argornst

Yeni Üye
Katılım
21 Ağu 2020
Mesajlar
1
En iyi yanıt
0
Puanları
3
Yaş
30
Konum
Trabzon
Ad Soyad
Adil Şahin
Kod:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("B2:B1000")) Is Nothing Or Target.Count > 1 Then Exit Sub
    If Target <> "" Then
        Dim Resim, adress, ResimAdi
        On Error Resume Next
        For Each Resim In ActiveSheet.Shapes
            Resim.Delete
        Next
        For Each Resim In Sheets("Resimler").Shapes
            adress = Resim.TopLeftCell.Column
            If adress = 2 Then
                ResimAdi = Sheets("Resimler").Cells(Resim.TopLeftCell.Row, 1).Value
                If ResimAdi = Target Then
                    Resim.Copy
                    ActiveSheet.Paste Destination:=Cells(5, 10)
                    With Cells(5, 10)
                        Selection.ShapeRange.LockAspectRatio = msoFalse
                        Selection.Height = .MergeArea.Height - 4
                        Selection.Width = .MergeArea.Width - 4
                        Selection.Top = .Top + 2
                        Selection.Left = .Left + 2
                        Selection.Placement = xlMoveAndSize
                    End With
                    Target.Select
                    Exit Sub
                End If
            End If
        Next
    End If
End Sub

Hocam bu kodlarla ben başka sayfadan çekiyorum resimleri ancak tıklanılan hücreye göre değişiyor resim. Kodları inceleyin kendi isteğinize göre düzenleyebilirsiniz.
 
Üst Alt