程序使用VBA导出数据到 EXCEL 时提示“ 不能 设置 类 Page Setup 的Zoom 属性 ”。那段程序语句是“XXX. Page Setup .Zoom = 80”。经过查找，终于找到了原因：当您的计算机上没有安装打印机驱动程序时，会出现此问题， Excel 不能 设置 或获取页面 设置 属性 。 解决方法：使用控制面板 中 的”打印机”选项来添加打印机驱动程序，添加打印机即可，也可添加一个虚拟打印机。 其实如果没有安装...

我们在写VBA代码时，特别是做小型程序开发时，经常会用VBA来 设置 “页面 设置 ” 中 的选项，还可用要用VBA来实现一些特殊的效果，这就需要使用 Page Steup对象。 Page Setup 对象包含所有页面 设置 的 属性 （左边距、底部边距、纸张大小等）。此对象共有49个 属性 ，其 中 ：8个 属性 是 EXCEL 2007新添加的，1个 属性 在2007 中 被删除了。下面我按照“页面”、“页边距”、“页眉/页脚”、“工作表”和...

在ppt 中 vba的 属性 ， 类 ，方法 1.Application对象 该对象代表PowerPoint应用程序，通过该对象可访问PowerPoint 中 的其他所有对象。 (1)Active 属性 ：返回指定窗格是否被激活。 (2)ActivePresentation 属性 ：返回Presentation对象，代表活动窗口 中 打开的演示文稿。 (3)ActiveWindow 属性 ：返回DocumentWindow对象，代表当前文档窗口。 (4)Presentations 属性 ：返回Presentations集合，代表所有打开的演示文稿。 (5)SlideShowWindows 属性 ：返回 SlideShowWindows集合，代表所有打开的幻灯片放映窗口。 (6)Quit方法：用于退出PowerPoint程序。 2.DocumentWindow对象 该对象代表文档窗口。使用“Windows(index) ”语法可返回DocumentWindow对象。 (1)ActivePane 属性 ：返回Pane对象，代表文档窗口 中 的活动窗格。 (2)Panes 属性 ：返回Panes集合，代表文档窗口 中 的所有窗格。 (3)ViewType 属性 ：返回指定的文档窗口内的视图 类 型。[Next Page ] 3.Presentation对象 该对象代表演示文稿，通过“Presentations(index)”语法可返回Presentation对象。 (1)BuiltInDocumentProperties 属性 ：返回DocumentProperties集合，代表演示文稿的所有文档 属性 。 (2)ColorSchemes 属性 ：返回ColorSchemes 集合，代表演示文稿的配色方案。 (3) Page Setup 属性 ：返回 Page Setup 对象，用于控制演示文稿的幻灯片页面 设置 属性 。 (4)SlideMaster 属性 ：返回幻灯片母版对象。 (5)SlideShowSettings 属性 ：返回SlideShowSettings对象，代表演示文稿的幻灯片放映 设置 。 (6)SlideShowWindow 属性 ：返回幻灯片放映窗口对象。 (7)AddTitleMaster方法：为演示文稿添加标题母版。 (8)ApplyTemplate方法：对演示文稿应用设计模板。 4.SlideShowWindow对象 该对象代表幻灯片放映窗口。 IsFullScreen 属性 ：用于 设置 是否全屏显示幻灯片放映窗口。[Next Page ] 5.Master对象 该对象代表幻灯片母版、标题母版、讲义母版或备注母版。 TextStyles 属性 ：为幻灯片母版返回TextStyles 集合，代表标题文本、正文文本和默认文本。 6.Slide对象 该对象代表幻灯片。 (1)SlideID 属性 ：返回幻灯片的唯一标识符。 (2)SlideIndex 属性 ：返回幻灯片在Slides集合 中 的索引号。 7.SlideShowView对象 该对象代表幻灯片放映窗口 中 的视图。 (1)AcceleratorsEnabled 属性 ：用于 设置 是否允许在幻灯片放映时使用快捷键。 (2)CurrentShowPosition 属性 ：返回当前幻灯片在放映 中 的位置。 (3)DrawLine方法：在指定幻灯片放映视图 中 绘制直线。 (4)EraseDrawing方法：用于清除通过DrawLine方法或绘图笔工具在放映 中 绘制的直线。 (5)GotoSlide方法：用于切换指定幻灯片。

range.NumberFormatLocal = "@"; // 设置 单元格格式为文本 range = (Range)worksheet.get_Range("A1", "E1"); //获取 Excel 多个单元格区域：本例做为 Excel 表头 range.Merge(0); //单元格合并动作 worksheet.Cells[1, 1] = " Excel 单元格赋值"; // Excel 单元格赋值 range.Font.Size = 15; // 设置 字体大小 range.Font.Underline=true; // 设置 字体是否有下划线 range.Font.Name="黑体"; 设置 字体的种 类 range.HorizontalAlignment=XlHAlign.xlHAlignCenter; // 设置 字体在单元格内的对其方式 range.ColumnWidth=15; // 设置 单元格的宽度 range.Cells.Interior.Color=System.Drawing.Color.FromArgb(255,204,153).ToArgb(); // 设置 单元格的背景色 range.Borders.LineStyle=1; // 设置 单元格边框的粗细 range.BorderAround(XlLineStyle.xlContinuous,XlBorderWeight.xlThick,XlColorIndex.xlColorIndexAutomatic,System.Drawing.Color.Black.ToArgb()); //给单元格加边框 range.Borders.get_Item(Microsoft.Office.Interop. Excel .XlBordersIndex.xlEdgeTop).LineStyle = Microsoft.Office.Interop. Excel .XlLineStyle.xlLineStyleNone; // 设置 单元格上边框为无边框 range.EntireColumn.AutoFit(); //自动调整列宽 Range.HorizontalAlignment= xlCenter; // 文本水平居 中 方式 Range.VerticalAlignment= xlCenter //文本垂直居 中 方式 Range.WrapText=true; //文本自动换行 Range.Interior.ColorIndex=39; //填充颜色为淡紫色 Range.Font.Color=clBlue; //字体颜色 xlsApp.DisplayAlerts=false; //保存 Excel 的时候，不弹出是否保存的窗口直接进行保存 ==================================================================== using System; using System.Collections.Generic; using System.Text; using System.Reflection; using System.Runtime.InteropServices; using Microsoft.Office.Interop. Excel ; using Excel Application = Microsoft.Office.Interop. Excel .ApplicationClass; using System.IO; namespace ExcalDemo public class Excel Files public void Create Excel Files() Excel Application excel = new Excel Application(); excel .Visible = false;// 不显示 Excel 文件,如果为 true 则显示 Excel 文件 excel .Workbooks.Add(Missing.Value);// 添加工作簿 Worksheet sheet = (Worksheet) excel .ActiveSheet;// 获取当前工作表 Range range = null;// 创建一个空的单元格对象 range = sheet.get_Range("A1", Missing.Value);// 获取单个单元格 range.RowHeight = 20; // 设置 行高 range.ColumnWidth = 20; // 设置 列宽 range.Borders.LineStyle = 1; // 设置 单元格边框 range.Font.Bold = true; // 加粗字体 range.Font.Size = 20; // 设置 字体大小 range.Font.ColorIndex = 5; // 设置 字体颜色 range.Interior.ColorIndex = 6; // 设置 单元格背景色 range.HorizontalAlignment = XlHAlign.xlHAlignCenter;// 设置 单元格水平居 中 range.VerticalAlignment = XlVAlign.xlVAlignCenter;// 设置 单元格垂直居 中 range.Value2 = " 设置 行高和列宽";// 设置 单元格的值 range = sheet.get_Range("B2", "D4");// 获取多个单元格 range.Merge(Missing.Value); // 合并单元格 range.Columns.AutoFit(); // 设置 列宽为自动适应 range.NumberFormatLocal = "#,##0.00";// 设置 单元格格式为货币格式 // 设置 单元格左边框加粗 range.Borders[XlBordersIndex.xlEdgeLeft].Weight = XlBorderWeight.xlThick; // 设置 单元格右边框加粗 range.Borders[XlBordersIndex.xlEdgeRight].Weight = XlBorderWeight.xlThick; range.Value2 = "合并单元格"; // 页面 设置 sheet. Page Setup .PaperSize = XlPaperSize.xlPaperA4; // 设置 页面大小为A4 sheet. Page Setup . Orientation = Xl Page Orientation .xlPortrait; // 设置 垂直版面 sheet. Page Setup .HeaderMargin = 0.0; // 设置 页眉边距 sheet. Page Setup .FooterMargin = 0.0; // 设置 页脚边距 sheet. Page Setup .LeftMargin = excel .InchesToPoints(0.354330708661417); // 设置 左边距 sheet. Page Setup .RightMargin = excel .InchesToPoints(0.354330708661417);// 设置 右边距 sheet. Page Setup .TopMargin = excel .InchesToPoints(0.393700787401575); // 设置 上边距 sheet. Page Setup .BottomMargin = excel .InchesToPoints(0.393700787401575);// 设置 下边距 sheet. Page Setup .CenterHorizontally = true; // 设置 水平居 中 // 打印文件 sheet.PrintOut(Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value); // 保存文件到程序运行目录下 sheet.SaveAs(Path.Combine(System.Windows.Forms.Application.StartupPath,"demo.xls"), Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value); excel .ActiveWorkbook.Close(false, null, null); // 关闭 Excel 文件且不保存 catch (Exception ex) MessageBox.Show(ex.Message); finally excel .Quit(); // 退出 Excel excel = null; // 将 Excel 实例 设置 为空