Create Textbox based on the postion of the picture

[kumarcoolz]

Hi Guys,
I have managed to place the textbox above the picture as i have desired but the textbox is placed on the top-right corner of the picture.

The intend is to place the textbox on the Bottom-right of the picture (as shown in the sample document)


The code I created is below for your reference:

Please Login or Register  to view this content.

[macropod]

Try:

Please Login or Register  to view this content.

Note: the above puts the boxes below the images. If you want them overlaying the images, change:
Set Shp = ActiveDocument.Shapes.AddTextbox(1, fcnXCoord(oILShp), fcnYCoord(oILShp), 50, 36)
to:
Set Shp = ActiveDocument.Shapes.AddTextbox(1, fcnXCoord(oILShp), fcnYCoord(oILShp) - 36, 50, 36)

[macropod]

Cross-posted at: http://www.vbaexpress.com/forum/show...of-the-picture
For cross-posting etiquette, please read FORUM RULE 8: http://www.excelforum.com/forum-rule...rum-rules.html