Aligning imported images in cell

[excelbeginner1]

Good day
Please could you assist I need to align my imported images

this is the vba code I am currently using to import.
Sub PictureKiller()
Dim s As Shape, rng As Range
Set rng = Range("c6:c99999")

For Each s In ActiveSheet.Shapes
If Intersect(rng, s.TopLeftCell) Is Nothing Then
Else
s.Delete
End If
Next s



Const fPath = "H:\FURNITURE PICS\ALL PICS"
Dim cel As Range, picPath As String


For Each cel In Range("a6", Range("a" & Rows.Count).End(xlUp))
On Error Resume Next
picPath = fPath & "\" & cel.Value & ".jpg"
If Not Dir(picPath, vbDirectory) = vbNullString Then
With cel.Parent.Pictures.Insert(picPath)
With .ShapeRange
.LockAspectRatio = msoFalse
.Width = 310
.Height = 310
End With
.Left = cel.Offset(, 2).Left
.Top = cel.Offset(, 2).Top
End With
End If
Next cel
End Sub

currently the images are are the left of the cell.
I want to center the images in there respective cells,.

 

[Anthony47]

Try replacing your .Left = cel.Offset(, 2).Left with

.Left = cel.Offset(, 2).Left + (cel.Offset(, 2).Width - .Width) / 2

PS: None of your questions has been marked as "Solved", may I suggest that you have a look at Guidelines and Mark as Solution

 

[excelbeginner1]

Try replacing your .Left = cel.Offset(, 2).Left with

.Left = cel.Offset(, 2).Left + (cel.Offset(, 2).Width - .Width) / 2

PS: None of your questions has been marked as "Solved", may I suggest that you have a look at Guidelines and Mark as Solution

Thanks this helps , how would I move the picture down, I tried .top = cel.Offset(, 2).top + (cel.Offset(, 2).height - .height) / 2, but this centers the images

 

[Anthony47]

You set the top position to the top of the row by .Top = cel.Offset(, 2).Top
Which vertical position would you like to use instead of that one?

 

[excelbeginner1]

Thanks , I managed to figure it out.

.Left = cel.Offset(, 2).Left + (cel.Offset(, 2).Width - .Width) / 2
.Top = cel.Offset(, 2).Top + (cel.Offset(, 1).Height - .Height) / 2

 

[smozgur]

The answer has been provided in post #2. Therefore, the marked solution post has been changed accordingly to help future readers.