Click here to Skip to main content
12,746,681 members (30,158 online)

inserted Image is not displayed in the required position

manognya kota asked:

Open original thread
Hello all,

I have a weird problem while adding picture to shapes for a specific cell in Excel.
Once the picture is added, it is not being displayed at the required position at run time.But on re-opening the same excel, the image is appearing in the proper position.Also,on debugging i get the required result.Am i missing something here?Iam using Excel 2010

Below is the code snippet that i am using.

Dim shp             As Shape
Dim PicRange        As Range
Dim strCol          As String
Dim strPicFileName  As String
Dim varPath         As Variant
Dim strPhotoName    As String
   strPhotoName = Cells(lngRow, SLDataCol.Photo_Link).Value
   varPath = Application.Range("SLPicPath").Value & strPhotoName
   strCol = "D"    'Image to be shown 

    Set PicRange = Range(strCol & lngRow & ":" & strCol & lngRow)

    Set shp = shtSL.Shapes.AddPicture(Filename:=varPath _
        , LinkToFile:=False, SaveWithDocument:=True, Left:=PicRange.Left,       Top:=PicRange.Top, Width:=160, Height:=68)
  shtSL.Rows(lngRow & ":" & lngRow).Select
    Selection.RowHeight = 70
    shp.ControlFormat.PrintObject = True
    shp.Placement = xlMoveAndSize

    Set PicRange = Nothing
    Set shp = Nothing

Tags: VBA, MS-Excel


When answering a question please:
  1. Read the question carefully.
  2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
  3. If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Let's work to help developers, not make them feel stupid.
Please note that all posts will be submitted under the The Code Project Open License (CPOL).

Advertise | Privacy | Mobile
Web02 | 2.8.170215.1 | Last Updated 26 Mar 2009
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100