shapes resim hücre

[cenk77ist]

hücrelerde çok küçültülmüş resimler var..
Shapes("Picture 1")
Shapes("Picture 2") ...
bu şekilde gidiyor..

istediğim hücreyi seçtiğimde ama resimi değil hücreyi..
o hücrede picture 1 mi 2 mi 6 mı var nasıl öğrenebilirim...

tşk
çok acil...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nesne As Shape
For Each nesne In ActiveSheet.Shapes
If nesne.TopLeftCell.Address = ActiveCell.Address Then _
MsgBox "Bu hücredeki resmin adı: " & nesne.Name
Next
End Sub