excelde açıklama içindeki fotoğrafları hücreye aktarma

[ehlikeyf12]

merhabalar arkadaşlar.
excelde yaklaşık 2000 adet açıklma içinde fotoğraf olan bir listem var bu açıklamdaki resimleri hücreye görünür şekilde aktarmak istiyorum. lütfen yardımcı olurmusunuz

 

[Asri]

Örnek dosyanızı dosya.tc yada dosya.co dan yükleyiniz.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar www.extendoffice.com/documents/excel/4328-excel-extract-image-from-comment.html

adresinden alınmıştır.

Sub CommentPictures()
'Updateby Extendoffcie 20161207
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

 

[ehlikeyf12]

asri ilgin alakan için teşekkür ederim. Necdet Yeşertener soruma verdiğin bilgi nasıl işime yaradı anlatamam allah razı olsun kardeşim inan çok yardımcı oldun.

 

[halit3]

Alternatif linkler aşağıda

http://www.excel.web.tr/f50/otomatik-resim-kopruleme-t117566.html
http://www.excel.web.tr/f48/gizli-resmi-gosterme-t129391/sayfa2.html
http://www.excel.web.tr/f14/acyklamaya-resim-getirme-d-surucusunden-t108126.html
http://www.excel.web.tr/f48/acyklamaya-otomatik-olarak-resim-eklemek-t132027.html
http://www.excel.web.tr/f48/hucre-acyklamasyna-resim-ekleme-t66978.html