Display of Drawing/Shapes Object on to List Box or any other Control

[Vijay Anand]

Hi,

I have some Drawing objects ( circles,lines with some text ) embeded into some series of Excel worksheet cells which is Back-end file.

I had developed a Front-end GUI which pops a List box which list out all the contents of the cells in the Back-end file.

Can any one suggest me as how to bring or reflect these drawing objects on the listbox or for that matter any other VBA controls.

Your help will be much appreciated.

Thanks & Regards,

Vijay Anand.R
<!-- / message -->

 

[NdNoviceHlp]

Not sure if I fully understand your needs. Here's a guess. HTH. Dave

Sub ListboxShapes()
Dim shp As Shape
For Each shp In Sheets("Sheet1").Shapes
Sheets("Sheet1").ListBox1.AddItem (shp.Name)
Next shp
End Sub

 

[Andy Pope]

You can use a listbox to display the objects name and or location.
The use an image control to display select item in list.

Have a look here for code that may help.
http://www.andypope.info/vba/userformdraw.htm

Or try Stephen's PastePicture routines which are used in my example.
http://www.oaltd.co.uk/Excel/Default.htm