Create Shape and add UserForm to it in Loop

[JonasBig2]

Hi guys,

my macro can create shapes in a for Loop. My UserForm has only a TextBox. The TextBox-Content should be variable.

For x To 10
1. Create Shape
2. connect UserForm to Shape
3. add to Connected UserForm TextBox-Content out of Array
(UserForm1.text = ActiveWorksheet.Cells(1,x).value)
Next x

I have already the Creating Shapes For-Loop. But how can i add to each shape which create a UserForm with the right TextBox-Content.
My Goal: User can click on a Shape and UserForm appears with individuell Information for the shape.
I am a little bit frustrated. Maybe you have any idea.

[davesexcel]

Attaching a sample workbook enables others to work on your problem:

To attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include BEFORE/AFTER sheets if needed to show the process you're trying to complete or automate. Remember to desensitize the data.

Click on GO ADVANCED and click "manage attachments" to open the upload window.


To add a file to a post