Açıklamaya otomatik olarak resim eklemek

[fatihilek]

Merhaba değerli arkadaşlar,

A1 hücresine tıklanıldığında resim ekleme penceresinin açılıp, ilgili resim seçildikten sonra onu otomatik olarak o hücrenin açıklama kısmına ekletecek bir koda ihtiyacım var, ayrıca resmin biraz büyük görünmesi için açıklama kısmını boyutlarını da belirleyebilirsem çok iyi olur.

Filtreleme yapıldığında ilgili hücredeki resmin orada kalmasını istediğim için bu yolu denemek istiyorum fakat eğer resmi hücreye entegre edip, filtreleme yapıldığında herhangi bir kayma yaşanmayacak ise bu yöntem de benim için uygundur.

Bu iki seçenekten birini yapmak mümkün müdür ? yardımlarınıza ihtiyacım var, çok teşekkürler.

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.

 

[fatihilek]

ilginiz icin tesekkurler, dosyayi indirdim fakat acamadim, hata veriyor.

 

[omerceri]

Sn fatihilek
Hücrelerin açıklamalarına teker teker resim ekleyecekseniz Manuel olarak yapmalısınız. Eğer Hücrelerde veya o hücrenin bulunduğu satırda resim adı ile ilişki kurulabilecek bir bilgi varsa döngü ile otomatik olarak resimli açıklamalar eklenebilir ve boyutlana bilinir.

 

[hamitcan]

Linkleri inceleyin.
http://www.excel.web.tr/f50/acyklama-kutusunun-icine-resim-ekleme-t88260.html
http://www.excel.web.tr/archive/index.php/t-88260.html
http://www.excel.web.tr/f14/excelde-acyklamaya-resim-eklemek-t77445.html

 

[fatihilek]

Sayın Hamitcan yönlendirmeler için teşekkür ederim, fakat kod bilgim pek olmadığı için mevcut kodları istediğim formata dönüştüremedim.

Sayın Omerceri, maalesef resim ile ilişki kurabileceğim bir bilgi yok.

Peki,hücreye bir düğme ekleyip, bu düğmeye tıklandığında çağrılan resmi oraya entegre edebilmem mümkün müdür ? Böylelikle filtreleme yaptığımda resimler ilgili hücrelerde kalmış olur.

Teşekkürler

 

[tahsinanarat]

Bu kodları deneyiniz.

Sub AddPicturesToComments()
Dim HasCom
Dim Pict As String
Dim Ans As Integer
On Error Resume Next
Set HasCom = ActiveCell.Comment
If Not HasCom Is Nothing Then ActiveCell.Comment.Delete
Set HasCom = Nothing

GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
'Note you can load in, almost any file format
If Pict = "False" Then End


With ActiveCell
    .AddComment
    .Comment.Visible = False
    .Comment.Shape.Fill.Transparency = 0#
    .Comment.Shape.Fill.UserPicture Pict
End With

End Sub

 

[fatihilek]

Bu kodları deneyiniz.

Sub AddPicturesToComments()
Dim HasCom
Dim Pict As String
Dim Ans As Integer
On Error Resume Next
Set HasCom = ActiveCell.Comment
If Not HasCom Is Nothing Then ActiveCell.Comment.Delete
Set HasCom = Nothing

GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
'Note you can load in, almost any file format
If Pict = "False" Then End


With ActiveCell
    .AddComment
    .Comment.Visible = False
    .Comment.Shape.Fill.Transparency = 0#
    .Comment.Shape.Fill.UserPicture Pict
End With

End Sub

Sayin tahsinanarat ilginiz icin tesekkurler, resmin buyuklugunu artirmak icin asagidaki gibi bir ekleme yapmak istedim fakat istedigim sonucu alamadim, acaba yanlis yere mi yaziyorum ?

 With ActiveCell
    .AddComment
    .Comment.Shape.Fill.Transparency = 0#
    .Comment.Shape.Fill.UserPicture Pict
    [B][COLOR="Red"]Selection.Height = 200
    Selection.Width = 400[/COLOR][/B]
    .Comment.Visible = False
End With

 

[Korhan Ayhan]

Bu şekilde deneyiniz.

With ActiveCell
    .AddComment
    .Comment.Visible = True
    .Comment.Shape.Fill.Transparency = 0#
    .Comment.Shape.Fill.UserPicture Pict
    .Comment.Shape.Select
     Selection.Height = 200
     Selection.Width = 400
    .Comment.Visible = False
End With

 

[fatihilek]

Bu şekilde deneyiniz.

With ActiveCell
    .AddComment
    .Comment.Visible = True
    .Comment.Shape.Fill.Transparency = 0#
    .Comment.Shape.Fill.UserPicture Pict
    .Comment.Shape.Select
     Selection.Height = 200
     Selection.Width = 400
    .Comment.Visible = False
End With

cok tesekkurler

 

[fatihilek]

Merhaba sayin arkadaslar,

Aciklamaya eklenen fotografin cozunurlugunun dusurulerek (compress) eklenmesini saglamak mumkun mudur ?