Rounding Shape Corners with VBA If/Then Statement

[zgadson]

To make a long story short, I've got a Visio warehouse layout powered by a connection to an Excel sheet. My warehouse has consists of product on pallets and gigantic rolls of paper, and I want rolls of paper to be represented by circles where applicable.

Unconventional, but I discovered that since all my shapes are squares (representing pallets) that I can change the Rounding to 100 and it rounds the corners into a circle without the mess of actually changing the shape. So, I'm thinking I can use a simple If/Then statement in the Rounding variable of the Line Format of my shapes but I can't seem to get the right format for my if/then statement.

I have a Prop named "_VisDM_LAYOUTNAME" which represents the client name from my Excel sheet, so if my client's name is "WILD PAPER", what formula would I use in the Rounding variable of the Line Format section of my Shape Data?

IE:

Code Select Expand

If(_VisDM_LAYOUTNAME, "WILD PAPER"), LineRounding, 100, 0)

Any help would be greatly appreciated!

[Yacine]

Look for the function STRSAME.
Rgds,

[zgadson]

Got that part down I think, so it's more the language around rounding the line that I can't figure out.

[vojo]

why not put values in the rounding cell in the shapesheet.

just specify a value in millimeters.

[Yacine]

Write in the Rounding cell in the line format section:
IF(STRSAME(Prop._VisDM_LAYOUTNAME,"WILD PAPER"),100 mm,0)