Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.


  • Prev by Date: Re: Replace specific element with specific value.
  • Next by Date: Re: simple question
  • Previous by thread: numbered figures
  • Next by thread: Re: numbered figures