Place in cell

[Silverwolph]

Hey can anyone help me with a VBA code i cant figure out how to do.
I cant to take all png files from C:\pictures\ and have it place them in cell just like if you use the function place in cell when inserting a picture
I´ve tried all different tings but i still get the pictures over the cell.
I´ve even tried to record a macro to see what the function is called and its "Selection.InsertPictureInCell" but that will depend on a file name
and my idea was to just have it take all png files from the folder.
Does anyone have any experience with this, i did look at some of the posts but they seem to be more a statement that the function is here.

 

[Jeffrey Mahoney]

Here is some simple code to insert PNG files from a a single folder into cells. You can change the IniPath to your liking. Put your cursor where you want to start pasting the pictures.

Sub InsertAllPNGFiles()

  Dim Cel As Range
  Dim PathFile As String
  Dim FN As String
  Dim IniPath As String
  Dim X As Long
  Dim TLCel As Range
 
  IniPath = "C:\Temp\"
  Application.EnableEvents = False
 
  FN = Dir(IniPath & "*.png")
  Set TLCel = Selection.Resize(1, 1)
  X = -1
 
  Do While FN <> ""
    PathFile = IniPath & FN
    X = X + 1
    TLCel.Offset(X, 0).Select
    Selection.InsertPictureInCell (PathFile)
    FN = Dir
  Loop
 
  Application.EnableEvents = True
 
End Sub

 

[Silverwolph]

Hmm nothing seems to be happening when running the code, and i did change the path

 

[Jeffrey Mahoney]

Strange. I ran through a test and it did insert some pictures. Can you try stepping through the debugger and see what each filename is in the DO loop? Does it show real files?

 

[Silverwolph]

That was weird, tried it again and not it works like intended, thank you very much!