Soru yazı üzerine gelince resim çıkması

[osm87]

Arkadaşlar Merhaba.
Öncelikle bu sorun açıklama ekleme ile başladı. Bildiğiniz üzere satıra açıklama ekle dedikten sonra açıklama içine resim ekliyoruz ancak satırlar aşağıya kaydıkça açıklamada iniyor. Bu nedenle resmin yarısı görünüyor yarısı görünmüyor. Benim istediğim a4 hücresinin üzerine mouse ile geldiğimde mesela c2 hücresinin içerisinde belirttiğim resim gelsin. Bunun için bir makro oluşturabilir miyiz? Site içi de aradım tam istediğim gibi bir şey bulamadım. Dosya ekliyorum umarım detaylı anlatabilmişimdir. İyi çalışmalar

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

A sütunundaki hücrelere tıklayınca tanımlanan (Yol) resim görünür.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Alan As Range, Resim As Object, Yol As String
   
    If Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then Exit Sub
   
    Set Alan = Range("C2:K17")
   
    If ActiveSheet.DrawingObjects.Count > 0 Then
        For Each Resim In ActiveSheet.DrawingObjects
            If Not Intersect(Alan, Range(Resim.TopLeftCell.Address & ":" & Resim.BottomRightCell.Address)) Is Nothing Then
                Resim.Delete
            End If
        Next
    End If

    Yol = "C:\Users\Resimler\Resim.jpg"
    If Dir(Yol) = "" Then Exit Sub
   
    Set Resim = ActiveSheet.Pictures.Insert(Yol)
   
    With Resim
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = Alan.Height + 54
        .Width = Alan.Width - 52
        .Top = Range("C2").Top - 26
        .Left = Range("C2").Left + 26
    End With
End Sub

 

[alicimri]

Sayfaların veya hücrelerin MouseMove olayı yok.
1- Geliştirici sekmesinde Ekle Butonuna tıklayıp ActiveX Denetimlerinden "Resim" (image) oluşturun.
2- Bu image'ye resim eklemeyin, Back Style ve Border Style özelliğini 0 yapın.
3- Yine bu image'yi istediğiniz bir hücrenin (örneğimde A1 hücresi) üstüne sürükleyin ve o hücrenin boyutlarına uydurun.
4- Aşağıdaki Örnekteki ThisWorkBook ve Sayfa1'in Modüllerindeki kodları inceleyin
Bazen tutukluk yapsa da mausla A1 hücresinin üzerine gelince istediğinize benzer şekilde çalışır.
http://s3.dosya.tc/server16/tzpfe1/a.zip.html

 

[İdris SERDAR]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/mouse-fare-ile-isim-uzerinde-gezinerek-resim-getirme/

.

 

[osm87]

Korhan bey cevabınız için teşekkür ederim. Vermiş olduğunuz kodu Geliştirici > Kod görüntüle dedikten sonra çalışma kitabı içerisine yapıştırdım. Belirtmiş olduğunuz yolu da resimlerimin olduğu klasör içerisindeki bir resmi gösterdim ancak çalıştıramadım. Nerede hata yapmış olabilirim.

 

[osm87]

Ali bey 3. adımdan sonra takıldım. Kendinizde belirtmişsiniz ekteki dosyada pek sağlıklı çalışmıyor. Bana sorunsuz çalışacak bir sistem lazım.

 

[osm87]

.

Buradaki örneği inceleyin.

http://www.excelgurusu.com/mouse-fare-ile-isim-uzerinde-gezinerek-resim-getirme/

.

İdris bey vermiş olduğunuz linkteki işlem tam istediğim gibi. Ancak hiç bir şey anlamadım kendi dosyama nasıl uygulayacağım hakkında hiç bir fikrim yok. Linkte de detay belirtilmemiş.

 

[osm87]

açıklamaya resim ekleyebiliyorum. Yani a1 hücresine geldiğimde açıklama çıksın ancak belirttiğim konumda çıksın. Eklediğim açıklamalar ilgili hücrenin yanında çıktığından sorun yaşıyorum. Eğer bu sorunu çözebilirsek buda işimi görür.

 

[osm87]

Acaba soruma cevap verebilecek kimse yok mu?

 

[İdris SERDAR]

İdris bey vermiş olduğunuz linkteki işlem tam istediğim gibi. Ancak hiç bir şey anlamadım kendi dosyama nasıl uygulayacağım hakkında hiç bir fikrim yok. Linkte de detay belirtilmemiş.

Açıklamalı örnek burada.

http://www.excelgurusu.com/mouse-fare-ile-isim-uzerinde-resim-getirme-aciklamasi/


.

 

[kadir74]

Herkese Merhaba

Bu olayı UserForm da Image1 üzerinde de uygalanabiliyormu ?
Üzerine gelince büyüsün mouse çekince eski ebat a gelsin.

Şimdiden Yardımlarınız için Teşekkürler

Not: Klasörden çağrıyorum ben