Der Nummerierungsassistent ist fertig. Ich habe den Assistenten, der einige Bugs aufweist, nachgebaut. Man kann die Startnummer festlegen und die Schriftgröße ändern. Hierzu trägt man eine Zahl in den Dialog ein – alle Nummer werden nun größer oder kleiner. Die Technik:
der Dialog schreibt die Nummer in eine Zelle des ShapeSheets des Zeichenblattes:
ActivePage.PageSheet.Cells(„User.garSchriftgroesse“).FormulaU = „=“ & Me.txtSchrift.Value
Jede Nummer „holt“ sich diese Schriftgröße:
vsShapeNummernBobbel.Cells(„Char.Size“).FormulaU = „=GUARD(ThePage!User.garSchriftgroesse&““pt.““)“
