Set Container font size using Visio VBA

Question

I have code that is generating containers for a VBA diagram. I need to specify the font size for each container from VBA. For container shape con, I'm trying:

con.Cells("Char.Size").FormulaForceU = "8 pt"

This will cause the font size drop-down in the Visio UI to update to 8pt as well as the cell value in the shape sheet. but it does not actually change the font size for the container. I can change the size manually without issue.

Is there a step I am missing here?

Surrogate · Accepted Answer · 2023-05-22T14:20:15.007

1

Container shape consist of some sub-shapes!
In this example you can see into pair of sub-shapes. Each of them have own single sub-shape…
Usually container have into 4-5 sub-shapes summary.

You must define structure of your container, and find index of 'Header' shape

con.Shapes(2).Cells("Char.Size").FormulaForceU = "8 pt"

This example for sub-shape with index = 2.

This will cause the font size drop-down in the Visio UI to update to 8pt as well as the cell value in the shape sheet.

When you use UI changes apply for container and all sub-shapes. But via ShapeSheet you can change only single (active) shape!

edited May 22 '23 at 14:20

answered May 22 '23 at 14:12

Surrogate

1,466
2
11
13

Thank you Surrogate - this solved my problem! – Hank Brandenburg May 22 '23 at 17:18
Surrogate - can you provide a sample on how to set the fill color for the "Header" cell? I'm having similar problems with this. – Hank Brandenburg May 27 '23 at 18:27
Sad but truth ! We can't do it, just change one color :( `Container shape` really terrible clutter! – Surrogate May 29 '23 at 07:55

Set Container font size using Visio VBA

1 Answers1