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.