No More New Fonts May Be Applied Please Close Some Other Documents and Try Again

I accept a user that does a lot of work in Excel 2013.  With multiple sheets open invariably a message pops upwardly that says

which bombs all the sheets in several files and locks information technology upwards with

and is a majestic hurting as the user must become back and cheque to see what changes/edits stuck and what may not have.  Overall quite frustrating and time consuming.

I have read tons of posts online nigh this just could not find a reference to this issue on Spiceworks.

Initially it appeared to exist rectified for some users by turning off the auto-scale feature just this was a temporary fix for many from what I read.  G$ knows about information technology but no prepare notwithstanding that I have seen.

Realizing this is 10 years erstwhile, I did see where there was promise in running a VB script (Macro?) using ALT-F11 hither  as the root is believed to exist the existence of "some chart objects with goose egg width and or summit".

Not existence familiar with how to run VB lawmaking on an excel sail I gave information technology a go using this as a guideline but with 24 sheets in just one of many files I am hoping I am doing something wrong and a ameliorate arroyo is available.  I have washed information technology i sail at a fourth dimension just so far have not detected any issues using this code

Sub AutoScale_Off()
Dim ws As Worksheet, co Equally ChartObject, i As Integer
Dim ch As Chart
Awarding.ScreenUpdating = False
Application.Calculation = xlCalculationManual
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.Nautical chart.ChartArea.AutoScaleFont = False
Side by side co
Next ws
For Each ch In ActiveWorkbook.Charts
'Get through each chart in the workbook
ch.ChartArea.AutoScaleFont = Fake
i = i + 1
Next
MsgBox i & " charts have been contradistinct"
Application.DisplayAlerts = Truthful
Application.ScreenUpdating = Truthful
Application.Adding = xlCalculationAutomatic
End Sub

After using said code to detect problems other code exists to gear up but maybe a script could exist run to detect and prepare the whole Excel file or some other way exists to resolve the outcome.  Not trying to write a book just telling what was tried and then far.

I was hopeful that someone here had a valid fix for this as i would dearest to resolve this in one case and for all.

Thank Yous

swainfial1942.blogspot.com

Source: https://community.spiceworks.com/topic/2104429-no-more-new-fonts-may-be-applied-in-this-workbook

0 Response to "No More New Fonts May Be Applied Please Close Some Other Documents and Try Again"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel