DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Belirli_Bir_Alandaki_Resmin_Ismini_Almak()
Dim oRes As Picture
Dim rngBelirlenenAlan As Range
[COLOR=darkgreen] 'Siz bu alanı istediğiniz bir aralığa ayarlayınız.[/COLOR]
Set rngBelirlenenAlan = Range("A1:I30")
For Each oRes In ActiveSheet.Pictures
If Not Intersect(oRes.TopLeftCell, rngBelirlenenAlan) Is Nothing Then
[COLOR=darkgreen] 'Ben sadece mesaj kutusunda ismini gösterdim
'Siz, yapmak istediğiniz işlemleri(kodları) buraya yazınız[/COLOR]
MsgBox oRes.Name
End If
Next
Set rngBelirlenenAlan = Nothing
End Sub