Kısa Açıklama
Makro i̇le klasörden fotoğraf çekmek isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Arkadaşlar sorunum üzerine daha önce konu ile ilgili forumdan arkadaşlar yardımcı oldular sağolsunlar
fakat şuan şöyle bir sorunum var
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D4]) Is Nothing Then Exit Sub
With ActiveSheet
.Pictures.Delete
End With
Dim x
For i = 1 To 1
x = i * 1
Cells(2, "I").Select 'Resmin ekleneceği hücre
resimadi = LoadPicture("")
resimadi = Cells(4, "D").Text & ".jpg" ' Resmin alınacağı dosya adının olduğu hücre. Hücre içeriği ile dosya adı aynı olmalıdır.
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\Users\planyoq\Desktop\Yeni klasör\" & resimadi).Select 'Resimlerin bulunduğu klasör yolu.
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 100 'Resmin genişliğini ayarlayabilirsin
Selection.ShapeRange.Width = 215 'Resmin genişliğini ayarlayabilirsin
Selection.ShapeRange.Rotation = 0# 'Resmi yazacağın açı ile dönderebilirsin
Selection.ShapeRange.IncrementLeft 7 'Resmi hücrenin sol tarafındaki boşluğu ayarlayabilirsin.
Selection.ShapeRange.IncrementTop 8 'Resmi hücrenin üst tarafındaki boşluğu ayarlayabilirsin.
Next
End Sub
bu kod aracılığı ile D4 hücresine kişinin sicilini el ile yazdığım zaman fotoğraf getirebiliyorum
fakat D4 hücresine formül aracılığı ile sicili getirttiğimde işe yaramıyor nasıl bir düzenleme yapabiliriz
fakat şuan şöyle bir sorunum var
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D4]) Is Nothing Then Exit Sub
With ActiveSheet
.Pictures.Delete
End With
Dim x
For i = 1 To 1
x = i * 1
Cells(2, "I").Select 'Resmin ekleneceği hücre
resimadi = LoadPicture("")
resimadi = Cells(4, "D").Text & ".jpg" ' Resmin alınacağı dosya adının olduğu hücre. Hücre içeriği ile dosya adı aynı olmalıdır.
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\Users\planyoq\Desktop\Yeni klasör\" & resimadi).Select 'Resimlerin bulunduğu klasör yolu.
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Width = 100 'Resmin genişliğini ayarlayabilirsin
Selection.ShapeRange.Width = 215 'Resmin genişliğini ayarlayabilirsin
Selection.ShapeRange.Rotation = 0# 'Resmi yazacağın açı ile dönderebilirsin
Selection.ShapeRange.IncrementLeft 7 'Resmi hücrenin sol tarafındaki boşluğu ayarlayabilirsin.
Selection.ShapeRange.IncrementTop 8 'Resmi hücrenin üst tarafındaki boşluğu ayarlayabilirsin.
Next
End Sub
bu kod aracılığı ile D4 hücresine kişinin sicilini el ile yazdığım zaman fotoğraf getirebiliyorum
fakat D4 hücresine formül aracılığı ile sicili getirttiğimde işe yaramıyor nasıl bir düzenleme yapabiliriz
