Re: numbered figures
- To: mathgroup at smc.vnet.net
- Subject: [mg99702] Re: numbered figures
- From: Tom Burton <tburton at brahea.com>
- Date: Mon, 11 May 2009 06:27:15 -0400 (EDT)
I put the following cells in my local style sheet. Then "Figure" is a defined style. I do the same for Tables. Use an Automatic Numbering object to reference Figure by number. The key elements in the text below are CounterBox and CounterIncrements. The rest is formating, which you can change to suit your taste, although you should probably retain PageBreakAbove->False. Cell[StyleData["Figure"], CellMargins->{{55, 50}, {5, 5}}, PageBreakAbove->False, CellFrameLabels->{{ Cell[ TextData[{"Figure ", CounterBox["Figure"], ". "}]], None}, {None, None}}, Hyphenation->True, CounterIncrements->"Figure", FontFamily->"Ariel", FontSize->10, FontWeight->"Bold"] Cell[StyleData["Figure", "Presentation"], CellMargins->{{55, 50}, {5, 5}}, PageBreakAbove->False, Hyphenation->True, FontFamily->"Ariel", FontSize->13, FontWeight->"Bold"] Cell[StyleData["Figure", "Printout"], CellMargins->{{55, 55}, {5, 2}}, FontSize->8] It would probably be better to add this to an external style sheet and then reference the sheet, but I've never learned to do that. BTW, this dates back to version 5. There may be better ways now to do this.