How do I convert a picture's .Width to .Column.Width so I can embed it into a cell whose .ColumnWidth must be set?

[OaklandJim]

I did research this but cannot figure it out.

I am trying to embed a picture into a cell. My problem is that I need to convert the picture's .Width to the .ColumnWidth for the cell into which the picture will be embedded, so the cell is wide enough. How do I do the conversion?

I have researched this but the best I could find is the following sub that converts a CELL's .Width to .ColumnWidth.

Source: What is the unit of Excel column width? - Simple Excel VBA

Sub f_width(rng As Range, i As Long)

Dim j As Long

With rng
    For j = 1 To 3
        .ColumnWidth = i / .Width * .ColumnWidth
    Next j
End With

End Sub

The logic works well to convert a CELL's .Width to .ColumnWidth. But I need to convert the PICTURE's .Width to .ColumnWidth for the cell into which the picture is embedded.

I hope that a math plus Excel wizard can tell me how to do this.

 

[jolivanes]

That should have read 5.35 as a starter.
Sorry for the confusion.

 

[jolivanes]

BTW, I seldom use copy anymore. I use following.

Sheets("Sheet2").Shapes("Picture 2").Duplicate.Cut
Sheets("Sheet3").Range("A5").PasteSpecial xlPasteAll

 

[OaklandJim]

I was intrigued enough by your suggestion that I tried it. But I had an issue. After the paste the result (Selection) is a range not a picture. My code needs a picture (object) to work with.

'   Copy the original picture (Shape) to the wsToSheet worksheet.
    oPicture.Duplicate.Cut
    prToCell.PasteSpecial xlPasteAll

'   This reports that the resulting object is a range...
   Debug.Print TypeName(Selection)

'   ...so this code fails. The pasted picture becomes the Selection.
    Set oPicture2 = Selection

 

[jolivanes]

MsgBox Selection.Name

works for me

 

[jolivanes]

Sub Jim_From_Oakland()
    Sheets("Sheet2").Shapes("Picture 2").Duplicate.Cut
    Sheets("Sheet3").Range("J4").PasteSpecial xlPasteAll
With Sheets("Sheet3")
    .Pictures(Worksheets("Sheet3").Pictures.Count).Name = "OaklandJim"
End With
End Sub