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: [mg99749] Re: numbered figures
  • From: Hannes <HannesKessler at hushmail.com>
  • Date: Wed, 13 May 2009 05:07:11 -0400 (EDT)
  • References: <gu8uhq$6tn$1@smc.vnet.net>

Thanks Tom, your style is just what I was looking for.

I copied the default style sheet Default.nb to Default.modified.nb
into my $UserBaseDirectory/SystemFiles/FrontEnd/StyleSheets directory
and added your style with a text editor. Now it can be loaded into an
open notebook from the Format->Stylesheet menu. I inserted also the
option MenuPosition->10000 after CounterIncrements->"Figure". After
that, the new Figure style can be chosen from the style dropdown menu
in the edit toolbar if that  has been switched on in the option
inspector (ctrl-shift-o, Show option values->Global preferences,
Lookup->WindowToolbars->Editbar).

Best regards,
Hannes Kessler

On 11 Mai, 12:27, Tom Burton <tbur... at brahea.com> wrote:
> 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: second simple problem
  • Next by Date: Re: Optimize speed of plotting mesh
  • Previous by thread: Re: numbered figures
  • Next by thread: Spectral graph theory of the Buckyball