Looping through Shapes to change transparency

**JoeSkittles** · 04-23-2013, 11:12 AM

Hello,

I'm attempting to write some code that will loop through several shapes and change their transparency based on what a user selects on an interface.

Any suggestions on how to go about doing this?

Thanks!
Joe

**tehneXus** · 04-23-2013, 11:24 AM

Hi,

place at least one rectangle on the active worksheet and run this:

Please Login or Register  to view this content.

Regards

**JoeSkittles** · 04-23-2013, 03:02 PM

tehneXus,

Thanks so much for your reply! I tried the code, and it worked. However, I am trying to alter the code so that only the transparency of shapes in a particular group will change when the selection is made. Could you help me out with how to adapt the code so that it will change the group rather than all of one particular shape?

Thanks!
Jackson

**tehneXus** · 04-23-2013, 03:17 PM

Hi,

then you'll have to name your shapegroups manually (select the group and enter the name into the name box) and check for specific names in the code, like here:

Please Login or Register  to view this content.

This will set the transparency for the entire group, if you want to do this only for specific shapes in a group let me know.

Regards

**JoeSkittles** · 04-23-2013, 03:31 PM

tehneXus,

Thanks again! That worked well. One final question: I want the macro to automatically fire when the cell is changed that has the percentage for the transparency. How can I set this up.

I greatly appreciate your help!
Jackson

**tehneXus** · 04-23-2013, 03:53 PM

Hi,

please copy this into the WORKSHEET module of the worksheet that contains the cell which will be changed and write somthing into A1:

Please Login or Register  to view this content.

Regards

**JoeSkittles** · 04-23-2013, 04:19 PM

tehneXus,

Thanks again for your help. I'm trying the following code:

Please Login or Register  to view this content.

I'm hoping to fire the macro whenever I manually change the percentage on the worksheet. It's not working for some reason. Any suggestions?

Thanks again,
Joe

**tehneXus** · 04-23-2013, 04:30 PM

Hi,

What is "[cell_trans]" ?

Please remove the "End if" or insert a line break after "Then"

Regards

**JoeSkittles** · 04-24-2013, 11:09 AM

tehneXus,

Thanks so much for your help! I looked over this with a co worker and was able to get it to work. You were very helpful along the way!

Joe