How to know the interior.color of a shape

[seba64]

Hi. I have an userform with a 2 buttons. The first, open a visio document with one sheet. The visio image have a serie of circles with diferents colors and diferents numbers. The second button get the properties, for each shape, and write the id and the text in a worksheet. I wan get the fillcolor of each shape, but i don't know how.