Add a shape from no of shapes according to cell value

[mavisuruwa]

Hi,

I'm a newbie, an engineer assigned to do lots of re-bar detailing. I did it manually until now and seeking help to produce an excel program. Basically, most of parameters can be programmed using excel's common commands. However I have this question. How can I add a specific shape/picture to a cell according to a value input to a cell? I have nearly 400 shapes in hand. I know that VBA scripts can do it, but don't know how. Thanks in advanced.

K

 

[yky]

The following is the code I just posted a few days ago for adding a picture to the active cell, the cell one just double-clicked. You can modify it to suit your need. You need to change the path and file name, the Left and Top to the cell you want to picture to be pasted to, and Width and Height of the picture.

[COLOR=#333333]Dim p As Object[/COLOR]

Set p = ThisWorkbook.Sheets(1).Shapes.AddPicture(Filename:="D:\PICTURE DATABASE\DSC02029.JPG", LinkToFile:=False, _
SaveWithDocument:=True, Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=153, Height:=204)