喷漆车间 几类防火:保存excel表格提示本工作薄不能使用其他新字体

来源:百度文库 编辑:偶看新闻 时间:2024/04/29 20:36:08
解决方案:
   禁用现有图表中的自动字体缩放
方法   1:禁用每个图表中的“自动缩放”  
  1.   选择一个图表。    
  2.   在格式菜单上,单击图表区。    
  3.   单击字体选项卡。    
  4.   单击以清除自动缩放复选框。    
  5.   单击确定。    
  6.   为工作簿中的每个图表重复这些步骤。    
   
  方法   2:以编程方式禁用工作簿中所有现有图表的“自动缩放”  
    以编程方式禁用工作簿中所有现有图表的“自动缩放”,请执行下列步骤:1.   启动   Excel   并打开导致错误信息的文件。    
  2.   在“工具”菜单上,指向“宏”,然后单击“Visual   Basic   编辑器”(或按   Alt+F11)。    
  3.   在   Visual   Basic   编辑器中,从“插入”菜单中选择“模块”。    
  4.   在模块中键入或粘贴以下代码: 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  
5、点保存按钮保存刚才编写的宏,回到工作簿界面,点击“工具宏宏”,选中 AutoScale_Off(也就是我们刚才编写的宏的名称),点执行,一切搞定。