Excel Sayfasındaki Resime, Klasör içinden bir resim atamak

[baydeniro]

Merhaba Arkadaşlar,

Bir excel sayfamda vesikalık resim boyutunda bir resim var. bu resme formül ile görüntü atayabiliyorum. Bunda sorun yok. Ama istiyorum ki Exceldeki resme aşağıda adresi belirtilen resmi bağlamak mümkün mü ?

C:\SUNUM\resim1.jpg

 

[baydeniro]

Merhaba Arkadaşlar,

Bir excel sayfamda vesikalık resim boyutunda bir resim var. bu resme formül ile görüntü atayabiliyorum. Bunda sorun yok. Ama istiyorum ki Exceldeki resme aşağıda adresi belirtilen resmi bağlamak mümkün mü ?

C:\SUNUM\resim1.jpg

 

[baydeniro]

Merhaba Arkadaşlar,

Bir excel sayfamda vesikalık resim boyutunda bir resim var. bu resme formül ile görüntü atayabiliyorum. Bunda sorun yok. Ama istiyorum ki Exceldeki resme aşağıda adresi belirtilen resmi bağlamak mümkün mü ?

C:\SUNUM\resim1.jpg

 

[Orion1]

VBA kodlama ile image nesnesine yada direk hücre içine resmi alabilirsiniz.

 

[baydeniro]

VBA kodlama ile image nesnesine yada direk hücre içine resmi alabilirsiniz.

Üstad çok teşekkür ederim. Bir kod buldum, uyguladım oldu. ama şöyle bir sorun var. Daha doğrusu şimdilik sorun değil ama belki ileride olabilir.

 

[baydeniro]

VBA kodlama ile image nesnesine yada direk hücre içine resmi alabilirsiniz.

With Range("D5")
Resim.Top = .Top
Resim.Left = .Left
Resim.Width = .Width
Resim.Height = .Height
End With

şimdi bu kodda resim yüksekliğini bir üst satıra alınca çağırdığı resmin yüksekliğini satır yüksekliğine göre ayarlıyor. ama bu sefer resim genişse genişlik hücre genişliğinden taşıyor. buna bir çere var mı ?
yani çağrılan resim atandığı hücre boyutu içinde kalsın diye !

 

[Orion1]

With Range("D5")
Resim.Top = .Top
Resim.Left = .Left
Resim.Width = .Width
Resim.Height = .Height
End With

şimdi bu kodda resim yüksekliğini bir üst satıra alınca çağırdığı resmin yüksekliğini satır yüksekliğine göre ayarlıyor. ama bu sefer resim genişse genişlik hücre genişliğinden taşıyor. buna bir çere var mı ?
yani çağrılan resim atandığı hücre boyutu içinde kalsın diye !

Bu kodu makro kaydet yöntemi ile bulabilirsiniz.
Yapamazsanız ben kodu veririm.

 

[baydeniro]

Bu kodu makro kaydet yöntemi ile bulabilirsiniz.
Yapamazsanız ben kodu veririm.

Üstadım cahilliğimi mazuır görün lütfen "Bu kodu makro kaydet yöntemi ile bulabilirsiniz." derken neyi kastettiğiniz çözümleyemedim

 

[Orion1]

Önce şunu sorayım.Makro kaydet yöntemini biliyormusunuz?

 

[baydeniro]

Önce şunu sorayım.Makro kaydet yöntemini biliyormusunuz?

teşekkürler üstad. Makro kaydetmeyi biliyorum, yazı uzun olmasın diye kodun bir bölümünü yazdım sadece.
kod gayet güzel çalışıyor. o açıdan sorun yok. tek derdim gelen resmin eb/boy orantısı aynen kalarak hücre yükseklşik ve genişliğine adapte olması

 

[Orion1]

Makro kaydet yöntemi ile aşağıdaki kodu elde ettim.

Selection.ShapeRange.LockAspectRatio = msoFalse

Sizin kodunuza uyarlayınca aşağıdaki gibi oldu.

With Range("D5")
Resim.ShapeRange.LockAspectRatio = msoFalse
Resim.Top = .Top
Resim.Left = .Left
Resim.Width = .Width
Resim.Height = .Height
End With

 

[baydeniro]

Makro kaydet yöntemi ile aşağıdaki kodu elde ettim.

Selection.ShapeRange.LockAspectRatio = msoFalse

Sizin kodunuza uyarlayınca aşağıdaki gibi oldu.

With Range("D5")
Resim.ShapeRange.LockAspectRatio = msoFalse
Resim.Top = .Top
Resim.Left = .Left
Resim.Width = .Width
Resim.Height = .Height
End With

Üstad çok teşekkür ediyorum. Müthiş oldu şimdi.
bu haliyle hücre boyutunu tam kaplıyor.
meraktan soruyorum resmin orjinal en/boy oranını muhafaza edecek şekilde hücre sınırları içine yerleşmesi mümkün müdür ?

 

[Orion1]

O zaman yazdığım sütunu silin.
Bu seferde tam hücreye oturmaz.
Ya enden yada boydan uyar.Bir taraftan uyarsa diğer taraftan uymaz.

 

[baydeniro]

O zaman yazdığım sütunu silin.
Bu seferde tam hücreye oturmaz.
Ya enden yada boydan uyar.Bir taraftan uyarsa diğer taraftan uymaz.

Teşekkürler üstadım, çok sağolun, sağlıcakla kalın.

 

[Orion1]

Teşekkürler üstadım, çok sağolun, sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.

 

[tugkan]

Merhaba,
B sütunundaki hücrelerde yazan resim adına göre sizin belirttiğiniz klasörden resimleri F sütunundaki hücrelere getirir. Yalnız kodu her çalıştırdığınızda önce sayfadaki resimleri siler.

Private Sub MAKRO1()
ActiveSheet.DrawingObjects.Delete

Dim x

For i = 1 To 100

x = i * 1

Cells(x, "F").Select
resimadi = LoadPicture("")
resimadi = Cells(x, "B").Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\SUNUM\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 50
Selection.ShapeRange.Width = 110
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementLeft 0.49
Selection.ShapeRange.IncrementTop 0.31

Next

End Sub

 

[tugkan]

Merhaba,
B sütunundaki hücrelerde yazan resim adına göre sizin belirttiğiniz klasörden resimleri F sütunundaki hücrelere getirir. Yalnız kodu her çalıştırdığınızda önce sayfadaki resimleri siler.

Private Sub MAKRO1()
ActiveSheet.DrawingObjects.Delete

Dim x

For i = 1 To 100

x = i * 1

Cells(x, "F").Select
resimadi = LoadPicture("")
resimadi = Cells(x, "B").Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\SUNUM\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 50
Selection.ShapeRange.Width = 110
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementLeft 0.49
Selection.ShapeRange.IncrementTop 0.31

Next

End Sub

Bek baktığımda "0" cevap görünüyordu. Cevap yazdıktan sonra baktım benden daha önce cevaplanmış