Temat: Automatyczne numerowanie
...            okrag.Outline.SetProperties MMToInch(0.5), OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), False, False, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100             Dim tekst As Shape ' kreslimy tekst             Set tekst = ActiveLayer. CreateArtisticText(0, 0, Str(j + (i - 1) * mnoznik), cdrLanguageNone, cdrCharSetEastEurope, "Times New Roman", 10#, cdrFalse, cdrFalse, cdrNoFontLine, cdrCenterAlignment)                         ' wyrównujemy do okręgu tekst             tekst.AlignToShape cdrAlignHCenter, okrag, cdrTextAlignBoundingBox...
Źródło: helps.pl/forum/viewtopic.php?t=726