Sayfada resim seçme

[tamer42]

Merhaba,
sayfada bulunan "resim" isimli görseli seçmek için aşağıdaki kodu yazdım hata veriyor.
neden kaynaklanabilir?

Sub Makro2()
'
    ActiveSheet.Shapes.Range(Array("resim")).Select
End Sub

teşekkürler,

iyi Çalışmalar.[/code]

 

[ÖmerBey]

Merhaba,
Sayfa koruması aktif olabilir mi?

 

[tamer42]

Merhaba,
Sayfa koruması aktif olabilir mi?

Sayfa koruması yok hocam
Ben bu kodu Makro kaydet ile oluşturmuştum

Sub Makro2()
'
    ActiveSheet.Shapes.Range(Array("resim")).Select
End Sub

 

[ÖmerBey]

Kodda bir sorun gözükmüyor.
Paylaştığınız uyarı, sayfa koruması olduğu zaman kilitli resim seçilmeye çalışıldığında gözüküyor. Sayfa koruması tahminimin sebebi bu idi.
İlgili resmin üzerinde sağ tıklayıp > boyut ve özellikler > özellikler sekmesinde kilidini kaldırıp deneyiniz.

 

[tamer42]

Kodda bir sorun gözükmüyor.
Paylaştığınız uyarı, sayfa koruması olduğu zaman kilitli resim seçilmeye çalışıldığında gözüküyor. Sayfa koruması tahminimin sebebi bu idi.
İlgili resmin üzerinde sağ tıklayıp > boyut ve özellikler > özellikler sekmesinde kilidini kaldırıp deneyiniz.

Ömer Hocam sayfa özellikleriyle ilgili bir sorun var sanırsam
ekli dosya Sayfa1' de çalışırken; Sayfa2' de hata veriyor.

 

[ÖmerBey]

Sayfa2'de gözükmeyen ve adı resim olan bir nesne daha mevcut.
Aşağıdaki kodla kontrol edebilirsiniz.

Sub kontrol()
For Each shp In ActiveSheet.Shapes
    met = met & vbLf & shp.Name & " - " & shp.TopLeftCell.Address & ":" & shp.BottomRightCell.Address
Next
MsgBox met
End Sub

 

[tamer42]

Sayfa2'de gözükmeyen ve adı resim olan bir nesne daha mevcut.
Aşağıdaki kodla kontrol edebilirsiniz.

Sub kontrol()
For Each shp In ActiveSheet.Shapes
    met = met & vbLf & shp.Name & " - " & shp.TopLeftCell.Address & ":" & shp.BottomRightCell.Address
Next
MsgBox met
End Sub

teşekkür ederim Ömer Hocam
bir de seçili görseli unselect nasıl yapabiliriz?

ActiveSheet.Shapes.Range(Array("resim")).unSelect

gibi....

 

[ÖmerBey]

Excel'de seçilme olmaması gibi bir durum söz olamıyor. Bir şeyi seçmemek için başka şeyi seçmelisiniz. Yani başka bir şeyi seçtiğinizde resim seçimsiz olacaktır. Range("A1").Select gibi...
İyi çalışmalar...

 

[tamer42]

Excel'de seçilme olmaması gibi bir durum söz olamıyor. Bir şeyi seçmemek için başka şeyi seçmelisiniz. Yani başka bir şeyi seçtiğinizde resim seçimsiz olacaktır. Range("A1").Select gibi...
İyi çalışmalar...

teşekkürler Hocam, iyi ki varsınız!