Paste Image and resize cell with VBA

[Caribeiro77]

Hey guys, how you all doing...
I have a question.
How do i paste an image ( for example in cell A1) and automaticly resize cell to fit image
Thanks

 

[Kenneth Hobson]

Is the "image" already copied to the clipboard or will it come from a file or shape or other?

 

[Caribeiro77]

The image will come from images folder...

 

[Caribeiro77]

Someone..

 

[Kenneth Hobson]

Sorry, my Hughes internet is not working well today.

I normally fit the shape to the cell. Resizing the columnwidth to that shape is being a problem. See the comment for some conversion factors that I tried. It may be a problem with ratios as well.

I set it up so you can look at pic height and width as well.

Sub InsertPic()
  Dim picPath$, s As Shape, c As Range, w As Single, h As Single
  Dim pic As StdPicture
  
  Set c = [A1]
  picPath = "C:\Users\lenovo1\Dropbox\Excel\Controls\Picture\New\Picture 1.jpg"
  picPath = "C:\Users\lenovo1\Dropbox\Excel\Controls\Picture\New\Picture 2.jpg"
  
  Set pic = LoadPicture(picPath)
   
  Set s = ActiveSheet.Shapes.AddPicture _
    (picPath, msoFalse, msoTrue, _
    c.Left, c.Top, -1, -1) 'embed files
    Debug.Print pic.Width, s.Width
  'c.ColumnWidth = s.Width / ActiveWindow.PointsToScreenPixelsX(1) / 25.4 * 96 / 72
  c.ColumnWidth = s.Width
  c.RowHeight = s.Height
End Sub