Results 1 to 2 of 2

Center an inserted Image with VBA

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

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Location
    Stockton, California
    Posts
    281

    Default Center an inserted Image with VBA

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

  2. #2
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Bogota, Colombia
    Posts
    11,949

    Default Re: Center an inserted Image with VBA

    Try something like

    Code:
    Selection.ShapeRange.Left = Range("B5").Left + Range("B5").Width / 2 - Selection.ShapeRange.Width / 2
    Regards,

    Juan Pablo González
    http://www.juanpg.com

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


DMCA.com