içeri çekilen resimler kilitsiz olsun

[DEKORrehberi.com]

excelde dışarıdan resim çektiriyorum.
fakat sayfamı korumalı çalışmak istiyorum,
bu durumda da RESİMLERİ DEĞİŞTİRMİYOR.

BUNA ÇÖZÜM OLARAK :
içeri çekilen resimler; direk KİLİTSİZ olarak çekebilir mi?

 

[YUSUF44]

Makro kaydet yoluyla elde ettiğim aşağıdaki makroyla ilk önce Picture1'in kilidi kaldırılıyor. Sonra da sayfa kilitlenirken sayfadaki nesnelerin düzenlenmesine izin vermektedir.

ilk işlem her resim için ayrı ayrı ayarlanmalıdır. Ancak ikinci işlem muhtemelen tüm resimler için geçerli olacaktır:

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    Selection.Locked = msoFalse
    Range("V23").Select
    [COLOR="Red"]ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True[/COLOR]
End Sub

 

[DEKORrehberi.com]

Gönderdiğiniz yöntemi denedim. Olmadı.
Muhtemelen kilitli sayfada sorun yaşanıyor,
Sayfa kilitli iken, resim çekmiyor.
Örnek dosya üzerinde daha net anlaşılıyor

Zannedersem dışardan bir resmi içeri çekerken.
Kilitsiz olarak çekmek gerekiyor…

Veyahut Aşağıdaki fonksiyonda
Önce kilidi açacak
İşlemini yapacak (resmi değiştirecek)
Son olarak kilitleyecek ve işlem bitecek
Mümkünse

Kod:
“
Function Resim(ByVal resad As String, Optional ByVal gen As Single = 300, _
Optional ByVal yuk As Single = 195)


Dim hcr As Range
Dim res As Object

Set hcr = Application.Caller

For Each res In hcr.Parent.Pictures
If res.TopLeftCell.Address = hcr.Address Then
res.Delete
Exit For
End If
Next

Set res = hcr.Parent.Pictures.Insert(resad)
With res
.Left = hcr.Left + 2
.Top = hcr.Top + 1
.Width = gen

End With

End Function
“

İlginiz için teşekkürler