HÜcre Üzerİnde Resİm BÜyÜltme

[ANTALYA 01]

Merhaba bu kodu ekteki resim için uyarlıyabilirmiyiz.Yani hücre Büyümesin Resmin üzerine gelince resim istediğimiz gibi büyüsün.

Dim eski
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If eski <> Empty Then
Range(eski).Font.Name = "Arial"
Range(eski).Font.Size = 10
End If

If Intersect(Target, Range("A1:F20")) _
Is Nothing Then Exit Sub
'Selection.Font.Name = "Webdings"
Selection.Font.Name = "Arial"
Selection.Font.Size = 20.22

eski = Target.Address(False, False)


End Sub

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Dosyada farenin hareketine göre büyültme yapmak için image nesnesi kullanılmıştır. Normal resim ise fare ile tıklanarak büyütülmektedir.

 

[ANTALYA 01]

V

Çok ama Çok teşekkür ederim.Tam istediğim gibi kendim uyarlamaya çalışacağım.

 

[ANTALYA 01]

S

Sayın Leventm

Bu çalışmanızı Başka Çalışma Sayfasında kendim uyarlamaya çalıştım Beceremedim.Ekteki Dosyalara bir bakarmısınız nerde yanlış yapıyorum.Ayrıca BİR Sayfada 50 Resim bulunacak en az Sanki kodlar bir resimden başka kabul etmiyor.Ayrıca Makrolu örneğinizi Bir resim olarak başka sayfada denedim.Resim büyüyor fakat üstüne tıkladığımda eski halini almıyor.Burdaki püf nokta nerde.

 

[ANTALYA 01]

F

Makrolu örnekte 3 resim için Modullere Resim numarasını değiştirerek kopyalıyorum.Ambiguous name detected;buyut HATASI VERİYOR.

 

[ANTALYA 01]

X

Cevabınızı sabırsızlıkla bekliyorum.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[ANTALYA 01]

S

Süpersiniz teşekkür ederim.Kandiliniz Kutlu olsun.

 

[oyseme1974]

say&#305;n leventm &#351;u an sizin b&#252;t&#252;n &#231;al&#305;&#351;malar&#305;n&#305;z&#305; inceliyorum ger&#231;ekten de s&#252;persiniz ellerinize sa&#287;l&#305;k