Resimli listenin içindeki linkleri silmek

[xgenc]

Merhaba,

Elimde excel bi ürün listesi bulunmakta ,
4bin adet ürün resimli ve her resimde bi link , url , bulunmakta toplu olarak bu bağlantıları nasıl silerim.?

Teşekkürler.

 

[vein03051976]

Kontrol edermisiniz

Sub hyper()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Hyperlink.Address <> "" Then shp.Hyperlink.Delete
Next shp
End Sub

 

[alicimri]

Alternatif
Eğer Resimlerin dışında köprü yoksa aşağıdaki kod da işe yarar.

ActiveSheet.Hyperlinks.Delete

 

[xgenc]

teşekkürler bu kodları nasıl kullanmam gerekiyor.?