Help Centering Image VBA

[Kristie390]

Please help.
I currently am using the below to insert a picture but it is now going top left. I would like to have this resized to auto fit in the cell with the row height 125.
Can someone please help me here? I have researched a few places online and keep getting an error. VBA newbie here..




With Range(BCell)


Set myPict = ActiveSheet.Pictures.Insert(PictureLoc)


.RowHeight = 125

myPict.Top = .Top
myPict.Left = .Left
myPict.Placement = xlMoveAndSize


myPict.Height = 115


End With

 

[Kristie390]

Where did you place the function? VBA cannot see it

Try this which should work
- paste the function into a standard module and remove the word Private

Can you please show me where on here?

[/URL][/IMG]