SetOptions[InputNotebook[],
(* 視窗大小 *)
WindowSize -> {1200, 800},
(* 字型大小 *)
FontSize -> 18,
(* 輸出輸入是否要有外框 *)
CellFrame -> True,
(* 外框顏色 *)
CellFrameColor -> Green,
StyleDefinitions ->
Notebook[{Cell[StyleData[StyleDefinitions -> "Default.nb"]],
(* 輸入字型顏色 *)
Cell[StyleData["Input"], FontColor -> Blue],
(* 輸出字型顏色 *)
Cell[StyleData["Output"], FontColor -> Red]}]
]
若是要成為日後開啟的樣式，可將設定放在下面目錄的init.m裡面ToFileName[$UserBaseDirectory, "Kernel"]
If[$Linked, (* do nothing for kernel-only sessions *)
RunScheduledTask[
FrontEndExecute[{
SetOptions[FrontEnd`InputNotebook[], WindowSize -> {1150,750}],
SetOptions[FrontEnd`InputNotebook[], WindowMargins ->
{{7,Automatic},{Automatic,6}}]
}], {0.4, 7}];
];
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～