toplu resim açma

[mbattal]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$A$4" Then Exit Sub
ActiveSheet.Shapes("resim").Delete
[B4].Select
ActiveSheet.Pictures.Insert("\\sekreter\Dosya 2\" & Target & ".jpg").Select
Selection.Name = "resim"
End Sub


Arkadaşlar günaydın,
Yukarıdaki kodu bu forum sayesinde elde etmiş ve kendime göre düzenlemiştim. Bu kod A4 hücresinde yazılı olan değere karşılık gelen resmi B4 hücresine açıyor.
Fakat benim istediğim resim adresi aynı kalmak şartıyla A4 teki değere karşılık gelen resmi B4 e açması, A5 i B5 açması , A6 yı B6 ya açması böyle yaklaşık 5000 e kadar devam etmesi
Kodda nasıl bir düzenleme yapılabilir.
Not eğer ilgili resim yoksa boş kalması

Şimdiden Teşekkürler

 

[hamitcan]

Private Sub Worksheet_SELECTIONChange(ByVal Target As Range)
    On Error Resume Next
    ActiveSheet.Pictures.Delete
    If Target.Column <> 1 Then Exit Sub
    ActiveSheet.Pictures.Insert ("C:\resim\" & Target & ".jpg")'Resimlerinizin bulunduğu yolu yazın.
End Sub

Not:"A" sütununa resimlerinizin isimlerini yazın.Üzerinde gezindiğinizde resimler değişecektir.

 

[mbattal]

Say&#305;n Hamitcan
&#199;ok Te&#351;ekk&#252;r ederim
eline bilgine sa&#287;l&#305;k
kodlar&#305; incelemeye ba&#351;lad&#305;m
te&#351;ekk&#252;rler

 

[cebelitarık]

Say&#305;n Hamitcan te&#351;ekk&#252;rler
yazm&#305;&#351; oldu&#287;unuz kod benimde i&#351;ime yarad&#305;
ancak bir hususu rica edebilirmiyim
a s&#252;tununda a&#351;a&#287;&#305;ya do&#287;ru indik&#231;e resimde onunla beraber a s&#252;tununda ilerliyor ve sayfan&#305;n g&#246;r&#252;n&#252;r en alt h&#252;cresine gelince resimde sayfa d&#305;&#351;&#305;nda oldu&#287;undan izlemek zor oluyor.
bunu A s&#252;tununda a&#351;a&#287;&#305; do&#287;ru ilerlerken her zaman resim ekran merkezinde kalacak &#351;ekilde nas&#305;l ayarlayabiliriz.
sayg&#305;lar

 

[hamitcan]

Anlad&#305;&#287;&#305;m kadar&#305;yla, sorununuz, resmin tamam&#305;n&#305; g&#246;rememek. Bence resmin boyutlar&#305;n&#305; k&#252;&#231;&#252;lterek bu sorun halledebiliriz.

 

[cebelitarık]

Say&#305;n Hamitcan
Derdimi anlatamad&#305;m galiba

a&#231;&#305;lan resim herzaman kaymadan k&#305;m&#305;ldamadan ekran&#305;n belli bir b&#246;l&#252;m&#252;ne sabitlenebilirmi

a s&#252;tununda gezindik&#231;e resim hep ayn&#305; yerde yani ekran&#305;n ortas&#305;nda kals&#305;n istiyorum
sayg&#305;lar

 

[hamitcan]

-&#214;nce &#231;al&#305;&#351;mak istedi&#287;iniz h&#252;crelerin kilidini a&#231;&#305;n.
-Resimlerin &#246;zelliklerinden "ta&#351;&#305;ma ve boyutland&#305;rma" k&#305;sm&#305;n&#305; se&#231;in.
-Sayfay&#305; koruma alt&#305;na al&#305;n.