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:
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
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:
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