bycakir
Altın Üye
- Katılım
- 1 Aralık 2017
- Mesajlar
- 220
- Excel Vers. ve Dili
- Microsoft Office 365 ProPlus
- Altın Üyelik Bitiş Tarihi
- 18-01-2025
merhabalar
ben aşağıdaki şekilde bir makro kullanlamaya çalışıyorum. makro sorunsuz çalışıyor fakat resim dosya yolu gösteremiyorum.resimler exel yuklu oldugu dizinde olursa gösteriliyor dosya yolunu nasıl gösterebilirim sanırım bu dizinde değişikilik yapmalıyım. ama nasıl
ResimYolu = ActiveWorkbook.Path & "\" & Range("D3") & ".jpg"
teşekkürler.
ben aşağıdaki şekilde bir makro kullanlamaya çalışıyorum. makro sorunsuz çalışıyor fakat resim dosya yolu gösteremiyorum.resimler exel yuklu oldugu dizinde olursa gösteriliyor dosya yolunu nasıl gösterebilirim sanırım bu dizinde değişikilik yapmalıyım. ama nasıl
ResimYolu = ActiveWorkbook.Path & "\" & Range("D3") & ".jpg"
teşekkürler.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D3]) Is Nothing Then Exit Sub
'hata kontrolü
On Error GoTo çıkış
'Resimleri Sil
ActiveSheet.DrawingObjects.Delete
'Resim yolunun bulunması
Dim ResimYolu As Variant
Dim Resim As Object
ResimYolu = ActiveWorkbook.Path & "\" & Range("D3") & ".jpg"
'Resmi oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
'Resmi boyutlandır
With Range("C5")
Resim.Top = .Top
Resim.Left = .Left
Resim.Height = .Height
Resim.Width = .Width
End With
çıkış:
End Sub