Shape properties (Excel 2003)

[Stefan_Sand]

hello all,

i wonder if it is possible to supply a shape with its properties (height and width) via cells.
in my attachment you can see, that it is possible to conditionally fill any shapes in a spreadsheet via cells, so you can make some diagrams for maps.
does anyone of you know how to adjust my code to change the properties as well??
thanks in advance, stefan

[HansV]

If you want to use the values in columns J and K for the height and width of the shapes, you can add these lines somewhere within the outer loop:

curShape.Height = konfigSheet.Cells(shapeZeile, 10)
curShape.Width = konfigSheet.Cells(shapeZeile, 11)

[Stefan_Sand]

that is awesome,
thank You, Hans

stefan

[Stefan_Sand]

sorry for asking for an add: how do i define shape height or width in centimeters instead of points?

[HansV]

The Excel VBA function Application.CentimetersToPoints converts centimeters to points, so if you enter the height in centimeters in konfigSheet.Cells(shapeZeile, 10), you can use

curShape.Height = Application.CentimetersToPoints(konfigSheet.Cells( shapeZeile, 10))

[Stefan_Sand]

thank You again,
stefan