Εισαγωγή εικόνας excel από path

[Επισκέπτης]

Δεν γνωρίζω αν γίνεται προγραμματιστικά ή με πιο απλό τρόπο αυτό που θέλω.

 

Εχω στοιχεία σε μια στήλη του excel με το windows path των εικονων πχ :  Τ:\image1.jpg.

 

Θα ήθελα να τραβάει σε μια στήλη το excel την ίδια την εικόνα και όχι το path.

[GReaperEx]

Δες εδώ, τα λέει με λεπτομέρεια:

https://www.extendoffice.com/documents/excel/4025-excel-dynamic-image-in-cell.html

[Επισκέπτης]

Αυτή η λύση που δίνει όμως γίνεται με το εργαλείο kutools και είναι επι πληρωμή.

[Επισκέπτης]

Sub InsertPicFromFile()
Dim cCell As Range
For Each cCell In Selection
If cCell.Value <> "" Then
On Error Resume Next
ActiveSheet.Shapes.AddPicture _
    Filename:=cCell.Value, LinkToFile:=msoFalse, _
    SaveWithDocument:=msoTrue, _
    Left:=cCell.Offset(ColumnOffset:=1).Left, Top:=cCell.Top, _
    Width:=cCell.Height, Height:=cCell.Height
End If
Next cCell
End Sub

Δες αυτό, είναι vba

[Επισκέπτης]

Ευχαριστώ! Μια χαρά δουλεύει.