Creating Autoshape Macro

[rka81]

Hello,

I have been trying to create a macro that once run will create a autoshape (Rectangle) based upon a list of people.


To put it another way -

I have a list of people who are attending an event
Their attendance is "confirmed" some are "unconfirmed"
If their attendance is "confirmed" then I would like to create a macro that, once run, will create an autoshape (rectangle) with their name on it. This is to create visual table plan of where everyone will be seated.


Name | Attendance

Mr A Confirmed
Mr B Unconfirmed
Mr C Confirmed


I have tried using the AddShape Method with VB and had some success but couldnt work out how to add the text (name) to the object. Also if this macro was run more than once, which is probable, then I wouldNT want it to create duplicated shapes for those already "confirmed".


Anyway I used the following code:-

If Range("A1") = "1" Then _
Shapes.AddShape msoShapeOval, Range("c1").Top, Range("c1").Left, 137.25, 54.75

This is only a start but havent managed to get much further/closer to what i need.

If possible could any of your guys point me in the right direction??

Thanks in advance

[royUK]

Why not just use Conditional Formatting to highlight cells?

[rka81]

Why not just use Conditional Formatting to highlight cells?

That is an option but really I want to have the shapes so that they can be arranged as a seating plan - not just to confirm attendance.

Thanks