This is a discussion on Center an inserted Image with VBA within the Excel Questions forums, part of the Question Forums category; Hello Everyone, I found the following code in multple places and modified it as needed, but I'm having one problem. ...
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.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
Try something like
Code:Selection.ShapeRange.Left = Range("B5").Left + Range("B5").Width / 2 - Selection.ShapeRange.Width / 2
Juan Pablo González