PedigreeFanChart_project.jpg
Dear all,

I have a hobby project constructing a pedigree fan chart using PowerPoint VBA.

I have managed to make a six-generation-fan by using the ShapePie object (see the attached picture). Every sector is one Pie object. I have also been able to align Text Boxes to each sector, or rather to the four-sided polygon generated when the inner pie sector is on the top of the outer one (the picture explains it much better). Each polygon is intended to contain one ancestor record; currently it holds the name of the TextBox.

However, closer to the centre I would like to make the text to curve to follow the arc of the sector (or the polygon).

Question 1): what would be the best way to do this by using VBA?
The Text Effect / Transform / Follow path seems a clumsy approach, and I am not sure how then to control the arc using the VBA.

2) How can I change the font size within one TextBox using VBA? E.g. the name with a bigger font and then the birth date with smaller.

If I add the name first with a font size 9 and use .InsertAfter for the birth date and then e.g., .TextFrame2.TextRange.Font.Size = 7, the font size for the whole box changes.

Thanks in advance for the help

Cheers,
JariV