2010年12月30日 星期四

EXCEL-沒有有其他新字型,可套用到這個活頁簿中

發生原因:
這個問題是由於 [自動調整大小] 設定所造成。當您在活頁簿中新增圖表時,依照預設會啟用 [自動調整大小] 設定,這個設定會造成圖表使用兩種或多種字型,而非只有一種。如果已啟用這個設定,當您在活頁簿中新增多個圖表時,可能會達到活頁簿的字型限制。如果是 Microsoft Excel 2000 和更新版本,字型的最大數目為 512。如果您手動新增圖表或是複製並貼上現有的圖表,就可能會達到活頁簿的字型限制。下面是複製現有圖表的範例:
您在活頁簿中建立圖表物件。
您在相同的活頁簿中複製並貼上圖表物件十次或以上。
然後在相同的活頁簿中複製工作表數次。
回此頁最上方

解決方法:
防止對新圖表進行自動字型大小調整
透過設定登錄機碼,您可以停用所有新圖表的自動字型大小調整,以防止活頁簿超過允許的字型最大數目。
如果要停用 [自動調整大小] 設定,請執行下列步驟:警告 如果您使用「登錄編輯程式」或其他方法不當地修改登錄,可能會發生嚴重問題。這些問題可能會需要您重新安裝作業系統才能解決。Microsoft 不保證可以解決這些問題。請自行承擔修改登錄的一切風險。
注意:由於 Microsoft Windows 有多種版本,因此下列步驟將依您的電腦,而有所差異。如有需要,請參閱您的產品說明文件,以完成這些步驟。
結束所有執行中的程式。
按一下 [開始] 按鈕,再按一下 [執行]。
在 [開啟] 方塊中,鍵入 regedit,再按一下 [確定]。
移至下面的登錄子機碼 (資料夾),視您的 Excel 版本而定:
Excel 2003
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options

Excel 2002
HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Excel\Options

Excel 2000
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Excel\Options

在 [編輯] 功能表上,指向 [新增],再按一下 [DWORD 值]。鍵入 AutoChartFontScaling,再按下 ENTER 鍵。
按一下 [編輯] 功能表上的 [修改]。在 [數值資料] 方塊中輸入 0,然後按一下 [確定]。
按一下 [檔案] 功能表上的 [結束],結束「登錄編輯程式」。
新增這個登錄機碼之後,在 Excel 中建立的所有新圖表都已取消選取 [自動調整大小] 設定。
回此頁最上方
在現有圖表中停用自動字型大小調整
使用下列其中一種方法停用現有圖表中的自動字型大小調整。
方法 1:停用各圖表中的 [自動調整大小]
選取一個圖表。
在 [格式] 功能表上,按一下 [選定圖表區域]。
按一下 [字型] 索引標籤。
按一下以取消選取 [自動調整大小] 核取方塊。
按一下 [確定]。
對活頁簿中的每個圖表重複上述步驟。
方法 2:以程式設計的方式停用活頁簿中所有現有圖表的 [自動調整大小]
Microsoft 僅提供示範性的程式設計範例,不做任何明示或默示的保證。其中包括 (但不限) 其適售性與適合某特定用途之默示擔保。本文假設您對於示範所用的程式設計語言,以及用來建立和偵錯程序的工具相當熟悉。Microsoft 技術支援工程師可以協助說明特定程序的功能,但無法修改這些範例以提供附加功能或建構程序來滿足您的特定需求。 如果要以程式設計的方式停用活頁簿中所有現有圖表的 [自動調整大小],請執行下列步驟:
啟動 Excel,然後開啟造成錯誤訊息的檔案。
在 [工具] 功能表中,指向 [巨集],然後按一下 [Visual Basic 編輯器] (或按 ALT+F11)。
在「Visual Basic 編輯器」中,從 [插入] 功能表中選取 [模組]。
在模組中輸入或貼上下列程式碼:
Sub AutoScale_Off()
Dim ws As Worksheet, co As ChartObject, i As Integer
Dim ch As Chart
For Each ws In ActiveWorkbook.Worksheets

' Go through each worksheet in the workbook

For Each co In ws.ChartObjects

'In each chart turn the Auto Scale font feature off

i = i + 1
co.Chart.ChartArea.AutoScaleFont = False
Next co
Next ws

For Each ch In ActiveWorkbook.Charts

'Go through each chart in the workbook

ch.ChartArea.AutoScaleFont = False
i = i + 1
Next
MsgBox i & " charts have been altered"
Application.DisplayAlerts = True
End Sub

按一下 AutoScale_Off 函數之程式碼的任何地方,然後按一下 [執行] 功能表上的 [Run Sub/UserForm]。在巨集執行之後,應該就可以正確插入圖表了。

參考至 http://support.microsoft.com/kb/215573

沒有留言:

張貼留言