Remove white rectangle around the shapes when shown on Userform

[Leden]

Platform: Excel 2016 Pro Plus 32 Bit on Windows 10 Pro 64 Bit

I have a repository of some complex shapes in a worksheet, which I drew in PowerPoint using standard Shape objects. I transfer them to a UserForm from within the VBA code (by means of Andy Pope's method) controlled by a SliderBar on the form. But there are always white rectangles around the shapes touching the max width and height of them when shown on the UserForm (they don't exist when the shapes are still in the worksheet). I wonder if there is a way to remove them either in the code or when drawing? Or, can this white area be filled with a different color, say the back color of the Frame on the UserForm so that it becomes invisible?

[Arkadi]

Can you provide a sample file to experiment with?

[Leden]

Can you tell me how to add the sample workbook in this thread not just the part of the code?
Sorry for the inconvenience that I cause..

[Leden]

I think I've found it..

Please click button "My Oval Shape" and/or scroll the top slider for Part shapes 1 to 7 to see my problem

[Andy Pope]

As I explained in the email the white area is caused by copying a shape with transparency, which bitmap does not support.
So to maintain the illusion the shape are place in front of a shape with a background to match that of the area it will be displayed in.
The background is also the same size as the display area so if you use large shapes there will be gaps, which will be white.

If you reduce the size of the oval and use this revised code it will look more like my example.

Please Login or Register  to view this content.

[Andy Pope]

I have reduced the size of the shapes.

Also there is now a method, UsePart, which copies the shape to be displayed.

[Leden]

Thanks a lot Andy, I'll apply your suggestions to my application to see if they work. Two remarks though:

-If this is an inherent problem of shape transparency which bitmap does not support, what about using the metafile format instead?
-On the other hand, I wonder if one of my shapes, say Part5 or Part6 can be parametrically drawn directly on a Userform just like an mso box/oval element that you showed in your original method? After all, my shapes mainly consist of round-cornered trapezoids which are put together in different ways. If this could be possible then it would be another classy solution to the problem.. What do you think?

[Andy Pope]

Rather than using the userform draw approach why not simple load the 7 shapaes in to image controls?

I copied the shape from the worksheet into powerpoint and then used the save picture to save each image to a gif.
You can then use the Picture property at design time to load the gif images

[AliGW]

Platform: Excel 2016 Pro Plus 32 Bit on Windows 10 Pro 64 Bit

Please update your forum profile with the Excel version - your Windows version is of little practical use to us. Thanks.

[Leden]

Unfortunately this solution does not seem to work for me because in my real application color of the parts changes in the run-time over a scheme controlled by a vertical slider. There are more than 250 different colors over the full range of the slider to give a continuous color change effect..
Therefore I can only do this by fill command when they are still in "shape mode" before converted to bitmap images.
I may have not stated explicitly but I already have a working solution (see bottom slider in my sample file) in a way that Part's color is changed while it is in the worksheet but transferred to the Userform as a group picture (Assy) in bitmap which consists of Part & Tool. "Tool" acts like a background object to absorb the white rectangle. In other words, each Part is accompanied by its Tool and they both form the Assy (assembly). This works alright but it seems to be a clumsy solution to me. I am just trying to discover if there is a smarter and more efficient way to do the same.

[Leden]

I assume this thread is solved now after several awesome ideas from Andy Pope.
Thank you very much all who have contributed..