Center an inserted Image with VBA

[robfo0]

Hello Everyone,

I found the following code in multple places and modified it as needed, but I'm having one problem. I would like the image to be inserted into the Center of B5, instead of the Left. I have tried every variation I can think of, but only Left and Justify seem to work. Here is the code:

Sub InsertPicture()
ActiveSheet.Pictures.Insert( _
"S:\Path\20th-logo3.jpg").Select
Selection.Name = "20th"
Selection.ShapeRange.Height = 75#
Selection.ShapeRange.Top = Range("B5").Top
Selection.ShapeRange.Left = Range("B5").Left
Application.CommandBars("Picture").Visible = False
End Sub

I'm sure it is something simple, I just couldn't find the solution with a search of the board. I'd appreciate any help.

thanks,

Rob

 

[Juan Pablo González]

Try something like

Selection.ShapeRange.Left = Range("B5").Left + Range("B5").Width / 2 - Selection.ShapeRange.Width / 2