pagesetup的属性设置问题

orangebutterfly 2002-12-11 04:25:45

...
With xlSheet.PageSetup
.Orientation = xlLandscape

.....
End With
...
该属性在vb环境下编译正常，做成dll组件后，asp调用报1004错不能设置类pagesetup的orientation属性。
而且即使屏蔽了Orientation属性，其他的pagesetup属性也会报错

请问这是怎么回事？谢谢！

...全文

387 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

tjaofeng 2002-12-12

打赏
举报

回复

try it:
Orientation=1

在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属性：返回指定的文档窗口内的视图类型。[NextPage] 3.Presentation对象该对象代表演示文稿，通过“Presentations(index)”语法可返回Presentation对象。 (1)BuiltInDocumentProperties属性：返回DocumentProperties集合，代表演示文稿的所有文档属性。 (2)ColorSchemes属性：返回ColorSchemes 集合，代表演示文稿的配色方案。 (3)PageSetup属性：返回PageSetup对象，用于控制演示文稿的幻灯片页面设置属性。 (4)SlideMaster属性：返回幻灯片母版对象。 (5)SlideShowSettings属性：返回SlideShowSettings对象，代表演示文稿的幻灯片放映设置。 (6)SlideShowWindow属性：返回幻灯片放映窗口对象。 (7)AddTitleMaster方法：为演示文稿添加标题母版。 (8)ApplyTemplate方法：对演示文稿应用设计模板。 4.SlideShowWindow对象该对象代表幻灯片放映窗口。 IsFullScreen属性：用于设置是否全屏显示幻灯片放映窗口。[NextPage] 5.Master对象该对象代表幻灯片母版、标题母版、讲义母版或备注母版。 TextStyles属性：为幻灯片母版返回TextStyles 集合，代表标题文本、正文文本和默认文本。 6.Slide对象该对象代表幻灯片。 (1)SlideID属性：返回幻灯片的唯一标识符。 (2)SlideIndex属性：返回幻灯片在Slides集合中的索引号。 7.SlideShowView对象该对象代表幻灯片放映窗口中的视图。 (1)AcceleratorsEnabled属性：用于设置是否允许在幻灯片放映时使用快捷键。 (2)CurrentShowPosition属性：返回当前幻灯片在放映中的位置。 (3)DrawLine方法：在指定幻灯片放映视图中绘制直线。 (4)EraseDrawing方法：用于清除通过DrawLine方法或绘图笔工具在放映中绘制的直线。 (5)GotoSlide方法：用于切换指定幻灯片。

word属性解析之一：PageSetup()解析

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 ExcelApplication = Microsoft.Office.Interop.Excel.ApplicationClass; using System.IO; namespace ExcalDemo { public class ExcelFiles { public void CreateExcelFiles() { ExcelApplication excel = new ExcelApplication(); try { 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.PageSetup.PaperSize = XlPaperSize.xlPaperA4; // 设置页面大小为A4 sheet.PageSetup.Orientation = XlPageOrientation.xlPortrait; // 设置垂直版面 sheet.PageSetup.HeaderMargin = 0.0; // 设置页眉边距 sheet.PageSetup.FooterMargin = 0.0; // 设置页脚边距 sheet.PageSetup.LeftMargin = excel.InchesToPoints(0.354330708661417); // 设置左边距 sheet.PageSetup.RightMargin = excel.InchesToPoints(0.354330708661417);// 设置右边距 sheet.PageSetup.TopMargin = excel.InchesToPoints(0.393700787401575); // 设置上边距 sheet.PageSetup.BottomMargin = excel.InchesToPoints(0.393700787401575);// 设置下边距 sheet.PageSetup.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 实例设置为空 } } } }

序号 CAD命令简写用途 1 3D 　创建三维实体 2 3DARRAY 3A 三维阵列 3 3DCLIP 　设置剪切平面位置 4 3DCORBLT 　继续执行3DORBIT命令 5 3DDISTANCE 　距离调整 6 3DFACE 3F 绘制三维曲面 7 3DMESH 　绘制三维自由多边形网格 8 3DORBLT 3DO 三维动态旋转 9 3DPAN 　三维视图平移 10 3DPLOY 3P 绘制三维多段线 11 3DSIN 　插入一个3DS文件 12 3DSOUT 　输出图形数据到一个3DS文件 13 3DSWIVEL 　旋转相机 14 3DZOOM 　三维视窗下视窗缩放 15 ABOUT 　显示AutoCAD的版本信息 16 ACISIN 　插入一个ACIS文件 17 ACISOUT 　将AutoCAD三维实体目标输出到ACIS文件 18 ADCCLOSE 　关闭AutoCAD设计中心 19 ADCENTER ADC 启动AutoCAD设计中心 20 ADCNAVIGATE ADC 启动设计中心并访问用户设置的文件名、路径或网上目录 21 ALIGN AL 图形对齐 22 AMECONVERT 　将AME实体转换成AutoCAD实体 23 APERTURE 　控制目标捕捉框的大小 24 APPLOAD AP 装载AutoLISP、ADS或ARX程序 25 ARC A 绘制圆弧 26 AREA AA 计算所选择区域的周长和面积 27 ARRAY AR 图形阵列 28 ARX 　加载、卸载Object ARX程序 29 ATTDEF ATT、DDATTDEF 创建属性定义 30 ATTDISP 　控制属性的可见性 31 ATTEDIT ATE 编辑图块属性值 32 ATTEXT DDATTEXT 摘录属性定义数据 33 ATTREDEF 　重定义一个图块及其属性 34 AUDIT 　检查并修复图形文件的错误 35 BACKGROUND 　设置渲染背景 36 BASE 　设置当前图形文件的插入点 37 BHATCH BH或H 区域图样填充 38 BLIPMODE 　点记模式控制 39 BLOCK B或–B 将所选的实体图形定义为一个图块 40 BLOCKICON 　为R14或更早版本所创建的图块生成预览图像 41 BMPOUT 　将所选实体以BMP文件格式输出 42 BOUNDARY BO或–BO 创建区域 43 BOX 　绘制三维长方体实体 44 BRDAK BR 折断图形 45 BROWSER 　网络游览 46 CAL 　 AutoCAD计算功能 47 CAMERA 　相机操作 48 CHAMFER CHA 倒直角 49 CHANGE –CH 属性修改 50 CH PROP 　修改基本属性 51 CIRCLE C 绘制圆 52 CLOSE 　关闭当前图形文件 53 COLOR COL 设置实体颜色 54 COMPILE 　编译（Shape）文件和PostScript文件 55 CONE 　绘制三维圆锥实体 56 CONVERT 　将R14或更低版本所作的二维多段线（或关联性区域图样填充）转换成AutoCAD2000格式 57 COPY CO或CP 复制实体 58 COPYBASE 　固定基点以复制实体 59 COPYCLIP 　复制实体到WINDOWS剪贴板 60 COPYHIST 　复制命令窗口历史信息到WINDOWS剪贴板 61 COPYLINK 　复制当前视窗至WINDOWS剪贴板 62 CUTCLIP 　剪切实体至WINDOWS剪贴板 63 CYLINDER 　绘制一个三维圆柱实体 64 DBCCLOSE 　关闭数据库连接管理 65 DBCONNECT DBC 启动数据库连接管理 66 DBLIST 　列表显示当前图形文件中每个实体的信息 67 DDEDIT ED 以对话框方式编辑文本或属性定义 68 DDPTYPE 　设置点的形状及大小 69 DDVPOINT VP 通过对话框选择三维视点 70 DELAY 　设置演示（Script）延时时间 71 DIM AND DIM1 　进入尺寸标注状态 72 DIMALIGNED DAL或DIMALI 标注平齐尺寸 73 DIMANGULAR DAN或DIMANG 标注角度 74 DIMBASELINE DBA或DIMBASE 基线标注 75 DIMCENTER DCE 标注圆心 76 DIMCONTINUE DCO或DIMCONT 连续标注 77 DIMDIAMETER DDI或DIMDLA 标注直径 78 DIMEDIT DED或DIMED 编辑尺寸标注 79 DIMLINEAR DLI或DIMLIN 标注长度尺寸 80 DIMORDINATE DOR或DIMROD 标注坐标值 81 DIMOVERRIDE DOR或DIMOVER 临时覆盖系统尺寸变量设置 82 DIMRADIUS DRA或DIMRAD 标注半径 83 DIMSTYLE DST或DIMSTY 创建或修改标注样式 84 DIMTEDIT DIMTED 编辑尺寸文本 85 DIST DI 测量两点之间的距离 86 DIVIDE DIV 等分实体 87 DONUT DO 绘制圆环 88 DRAGMODE 　控制是否显示拖动对象的过程 89 DRAWORDER DR 控制两重叠（或有部分重叠）图象的显示次序 90 DSETTINGS DS、SE 设置栅格和捕捉、角度和目标捕捉点自动跟踪以及自动目标捕捉选项功能 91 DSVIEWER AV 鹰眼功能 92 DVIEW DV 视点动态设置 93 DWGPROPS 　设置和显示当前图形文件的属性 94 DXBIN 　将DXB文件插入到当前文件中 95 EDGE 　控制三维曲面边的可见性 96 EDGESURF 　绘制四边定界曲面 97 ELEV 　设置绘图平面的高度 98 ELLIPSE EL 绘制椭圆或椭圆弧 99 ERASE E 删除实体 100 EXPLODE X 分解实体 101 EXPORT EXP 文件格式输出 102 EXPRESSTOOLS 　如果当前AutoCAD环境中无[快捷工具]这一工具，可启动该命令以安装AutoCAD快捷工具 103 EXTEND EX 延长实体 104 EXETRUDE EXT 将二维图形拉伸成三维实体 105 FILL F 控制实体的填充状态 106 FILLET 　倒圆角 107 FILTER FI 过滤选择实体 108 FIND 　查找与替换文件 109 FOG 　三维渲染的雾度配置 110 GRAPHSCR 　在图形窗口和文本窗口间切换 111 GRID 　显示栅格 112 GROUP G或-G 创建一个指定各称的目标选择组 113 HATCH –H 通过命令行进行区域填充图样 114 HATCHEDIT HE 编辑区域填充图样 115 HELP 　显示AutoCAD在线帮助信息 116 HIDE 　消隐 117 HYPERLINK 　插入超级链接 118 HYPERLINKOPTION HI 控制是否显示超级链接标签 119 ID 　显示点的坐标 120 IMAGE I 将图像文件插入到当前图形文件中 121 IMAGEADJUST LAD 调整所选图像的明亮度、对比度和灰度 122 IMAGEATTACH LAT 附贴一个图像至当前图形文件 123 IMAGECLIP ICL 调整所选图像的边框大小 124 IMAGFRAME 　控制是否显示图像的边框 125 IMAGEQUALITY 　控制图像的显示质量 126 IMPORT TMP 插入其他格式文件 127 INSERT I 把图块（或文件）插入到当前图形文件 128 INSERTOBJ IO 插入OLE对象 129 INTERFERE INF 将两个或两个以上的三维实体的相交部分创建为一个单独的实体 130 INTERSECT IN 对三维实体求交 131 ISOPLANE 　定义基准面 132 LAYER LA或–LA 图层控制 133 LAYOUT LO 创建新布局或对已存在的布局进行更名、复制、保存或删除等操作 133 JOIN J 合并 134 LAYOUTWIZARD 　布局向导 135 LEADER LE或LEAD 指引标注 136 LENGTHEN LEN 改变实体长度 137 LIGHT 　光源设置 138 LIMTS 　设置图形界限 139 LINS L 绘制直线 140 LINETYPE LT或–LTLTYPE 创建、装载或设置线型 141 LIST LS 列表显示实体信息 142 LOAD 　装入已编译过的形文件 143 LOGFILEOFF 　关闭登录文件 144 LOGFILEON 　将文本窗口的内容写到一个记录文件中 145 LSEDIT 　场景编辑 146 LSLIB 　场景库管理 147 LSNEW 　添加场景 148 LTSCALE LTS 设置线型比例系数 149 LWEIGHT LW 设置线宽 150 MASSPROP 　查询实体特性 151 MATCHPROP MA 属性匹配 152 MATLIB 　材质库管理 153 MEASURE ME 定长等分实体 154 MENU 　加载菜单文件 155 MENULOAD 　加载部份主菜单 156 MENUUNLOAD 　卸载部份主菜单 157 MINSERT 　按矩形阵列方式插入图块 158 MIRROR MI 镜像实体 159 MIRROR3D 　三维镜像 160 MLEDIT 　编辑平行线 161 MLINE ML 绘制平行线 162 MLSTYLE 　定义平行线样式 163 MODEL 　从图纸空间切换到模型空间 164 MOVE M 移动实体 165 MSLIDE 　创建幻灯片 166 MSPACE MS 从图纸空间切换到模型空间 167 MTEXT MT或T 多行文本标注 168 MULTIPLE 　反复多次执行上一次命令直到执行别的命令或按Esc键 169 MVIEW MV 创建多视窗 170 MVSETUP 　控制视口 171 NEW 　新建图形文件 172 OFFSET O 偏移复制实体 173 OLELINKS 　更新、编辑或取消已存在的OLE链接 174 OLESCALE 　显示OLE属性管理器 175 OOPS 　恢复最后一次被删除的实体 176 OPEN 　打开图形文件 177 OPTIONS OP、PR 设置AutoCAD系统配置 178 ORTHO 　 F8 切换正交状态 179 OSNAP OS 或–OS 设置目标捕捉方式及捕捉框大小 180 PAGESETUP 　页面设置 181 PAN P或–P 视图平移 182 PARTIALOAD 　部分装入 183 PARTIALOPEN 　部分打开 184 PASTEBLOCK 　将已复制的实体目标粘贴成图块 185 PASTECLIP 　将剪贴板上的数据粘贴至当前图形文件中 186 PASTEORLG 　固定点粘贴 187 PASTESPEC PA 将剪贴板上的数据粘贴至当前图形文件中并控制其数据格式 188 PCINWINEARD 　导入PCP或PC2配置文件的向导 189 PEDIT PE 编辑多段线和三维多边形网格 190 PFACE 　绘制任意形状的三维曲面 191 PLAN 　设置UCS平面视图 192 PLINE PL 绘制多段线 193 PLOT PRINT 图形输出 194 PLOTSTYLE 　设置打印样式 195 PLOTTERMANAGER 　打印机管理器 196 POINT PO 绘制点 197 POLYGON POL 绘制正多边形 198 PREVIEW PRE 　 199 PROPERTLES CH、MO、PRO 、PS、DDMODI、FX、DDCHPR OR 打印预览目标属性管理器 200 PROPERTLESCLOSE PRCLOSE 关闭属性管理器 201 PSDRAG 　控制PostScript图像显示 202 PSETUPIN 　导入自定义页面设置 203 PSFILL 　用PostScript图案填充二维多段线 204 PSIN 　输入PostScript文件 205 PSOUT 　输出PostScript文件 206 PSPACE PS 从模型空间切换到图纸空间 207 PURGE PU 消除图形中无用的对象，如图块、尺寸标注样式、图层、线型、形和文本标注样式等 208 QDIM 　尺寸快速标注 209 QLEADER LE 快速标注指引线 210 QSAVE 　保存当前图形文件 211 QSELECT 　快速选择实体 212 QTEXT 　控制文本显示方式 213 QUIT EXIT 退出AutoCAD 214 RAY 　绘制射线 215 RECOVER 　修复损坏的图形文件 216 RECTANG REC 绘制矩形 217 REDEFINE 　恢复一条已被取消的命令 218 REDO 　恢复由Undo（或U）命令取消的最后一条命令 219 REDRAW R 重新显示当前视窗中的图形 220 REDRAWALL RA 重新显示所有视窗中的图形 221 REFCLOSE 　外部引用在位编辑时保存退出 222 REFEDIT 　外部引用在位编辑 223 REFSET 　添加或删除外部引用中的项目 224 REGEN RE 重新生成当前视窗中的图形 225 REGENALL REA 重新刷新生成所有视窗中的图形 226 REGGNAUTO 　自动刷新生成图形 227 REGION REG 创建区域 228 REINIT 　重新初始化AutoCAD的通信端口 229 RENAME REN 更改实体对象的名称 230 RENDER RR 渲染 231 RENDSCK 　重新显示渲染图片 232 REPLAY 　显示BMP、TGA或TIEF图像文件 233 RESUME 　继续已暂停或中断的脚本文件 234 REVOLVE REV 将二维图形旋转成三维实体 235 REVSURF 　绘制旋转曲面 236 RMAT 　材质设置 237 ROTATE RO 旋转实体 238 ROTATE3D 　三维旋转 239 RPREF RPR 设置渲染参数 240 RSCRIPT 　创建连续的脚本文件 241 RULESURF 　绘制直纹面 242 SAVE 　保存图形文件 243 SAVE AS 　将当前图形另存为一个新文件 244 SAVEIMG 　保存渲染文件 245 SCALE SC 比例缩放实体 246 SCENE 　场景管理 247 SCRIPT SCR 自动批处理AutoCAD命令 248 SECTION SEC 生成剖面 249 SELECT 　选择实体 250 SETUV 　设置渲染实体几何特性 251 SETVAR SET 设置AutoCAD系统变量 252 SHADE SHA 着色处理 253 SHAPE 　插入形文件 254 SHELL SH 切换到DOS环境下 255 SHOWMAT 　显示实体材质类型 256 SKETCH 　徒手画线 257 SLICE SL 将三维实体切开 258 SNAP SN 设置目标捕捉功能 259 SOLDRAW 　生成三维实体的轮廓图形 260 SOLID SO 绘制实心多边形 261 SOLIDEIDT 　三维实体编辑 262 SOLPROF 　绘制三维实体的轮廓图像 263 SOLVIEW 　创建三维实体的平面视窗 264 SPELL SP 检查文体对象的拼写 265 SPHERE 　绘制球体 266 SPLINE SPL 绘制一条光滑曲线 267 SPLINEDIT SPE 编制一条光滑曲线 268 STATS 　显示渲染实体的系统信息 269 STATUS 　查询当前图形文件的状态信息 270 STLOUT 　将三维实体以STL格式保存 271 STRETCH S 拉伸实体 272 STYLE ST 创建文体标注样式 273 STYLESMANAGER 　显示打印样式管理器 274 SUBTRACT SU 布尔求差 275 SYSWINDOWS 　控制AutoCAD 文体窗口 276 TABLET TA 设置数字化仪 277 TABSURF 　绘制拉伸曲面 278 TEXT 　标注单行文体 279 TEXTSCR 　切换到AutoCAD文体窗口 280 TIME 　时间查询 281 TOLERANCE TOL 创建尺寸公差 282 TOOLBAR TO 增减工具栏 283 TORUS TOR 创建圆环实体 284 TRACE 　绘制轨迹线 285 TRANSPARENCY 　透水波设置 286 TREESTAT 　显示当前图形文体件路径信息 287 TRIM TR 修剪 288 U 　撤消上一操作 289 UCS 　建立用户坐标系统 290 UCSICON 　控制坐标图形显示 291 UCSMAN 　 UCS管理器 292 UNDEFINE 　允许用户将自定义命令覆盖AutoCAD内部命令 293 UNDO 　撤消上一组操作 294 UNION UNI 布尔求并 295 UNITS –UN 或UN 设置长度及角度的单位格式和精度等级 296 VBAIDE 　 VBA集成开发环境 297 VBALOAD 　加载VBA项目 298 VBAMAN 　 VBA管理器 299 VBARUN 　运行VBA宏 300 VBASTMT 　运行VBA语句 301 VBAUNLOAD 　卸载VBA工程 302 VIEW –V 视窗管理 303 VIEWRES 　设置当前视窗中目标重新生成的分辨率 304 VLISP VLIDE 打开Visual LISP集成开发环境 305 VPCLIP 　复制视图实体 306 VPLAYER 　设置视窗中层的可见性 307 VPOINT –VP或VP 设置三维视点 308 VPORTS 　视窗分割 309 VSLIDE 　显示幻灯文件 310 WBLOCK W 图块存盘 311 WEDGE WE 绘制楔形体 312 WHOHAS 　显示已打开的图形文件的所属信息 313 WMFIN 　输入Windows应用软件格式的文件 314 WMFOPTS 　设置WMFIN命令选项 315 WMFOUT 　 WMF格式输出 316 XATTACH XA 粘贴外部文件至当前图形 317 XBIND –XB或XB 将一个外部引用的依赖符永久地溶入当前图形文件中 318 XCLIP XC 设置图块或处理引用边界 319 XLINE XL 绘制无限长直线 320 XPLODE 　分解图块并设置属性参数 321 XREF XR或–XR 外部引用 322 ZOOM Z 视图缩放透明命令

function ceshi_Excel %利用MATLAB生成Excel文档 % ceshi_Excel % % Copyright 2009 - 2010 xiezhh. % $Revision: 1.0.0.0 $ $Date: 2009/12/14 20:40:00 $ % 设定测试Excel文件名和路径 filespec_user = [pwd '\测试.xls']; % 判断Excel是否已经打开，若已打开，就在打开的Excel中进行操作，否则就打开Excel try % 若Excel服务器已经打开，返回其句柄Excel Excel = actxGetRunningServer('Excel.Application'); catch % 创建一个Microsoft Excel服务器，返回句柄Excel Excel = actxserver('Excel.Application'); end; % 设置Excel服务器为可见状态 Excel.Visible = 1; % set(Excel, 'Visible', 1); % 若测试文件存在，打开该测试文件，否则，新建一个工作簿，并保存，文件名为测试.Excel if exist(filespec_user,'file'); Workbook = Excel.Workbooks.Open(filespec_user); % Workbook = invoke(Excel.Workbooks,'Open',filespec_user); else Workbook = Excel.Workbooks.Add; % Workbook = invoke(Excel.Workbooks, 'Add'); Workbook.SaveAs(filespec_user); end % 返回当前工作表句柄 Sheets = Excel.ActiveWorkbook.Sheets; % Sheets = Workbook.Sheets; Sheet1 = Sheets.Item(1); % 返回第1个表格句柄 Sheet1.Activate; % 激活第1个表格 % 页面设置 Sheet1.PageSetup.TopMargin = 60; % 上边距60磅 Sheet1.PageSetup.BottomMargin = 45; % 下边距45磅 Sheet1.PageSetup.LeftMargin = 45; % 左边距45磅 Sheet1.PageSetup.RightMargin = 45; % 右边距45磅 % 设置行高和列宽 % 定义行高向量RowHeight RowHeight = [26,22,15,29,37,29,29,25,25,36,280,31,40,29,15,24]'; % 设置Range对象（从A1到A16）的行高 Sheet1.Range('A1:A16').RowHeight = RowHeight; % 设置Range对象（从A1到H1）的列宽 Sheet1.Range('A1:H1').ColumnWidth = [9,15,9,9,9,9,9,9]; % 合并单元格 Sheet1.Range('A1:H1').MergeCells = 1; Sheet1.Range('A2:H2').MergeCells = 1; Sheet1.Range('A8:A9').MergeCells = 1; Sheet1.Range('B8:D8').MergeCells = 1; Sheet1.Range('E8:H8').MergeCells = 1; Sheet1.Range('B9:D9').MergeCells = 1; Sheet1.Range('E9:H9').MergeCells = 1; Sheet1.Range('A10:H10').MergeCells = 1; Sheet1.Range('A11:H11').MergeCells = 1; Sheet1.Range('A12:H12').MergeCells = 1; Sheet1.Range('A13:H13').MergeCells = 1; Sheet1.Range('A14:H14').MergeCells = 1; Sheet1.Range('D16:H16').MergeCells = 1; % 设置单元格的边框 Sheet1.Range('A4:H14').Borders.Weight = 3; Sheet1.Range('A10:H12').Borders.Item(3).Linestyle = 0; Sheet1.Range('A10:H12').Borders.Item(4).Linestyle = 0; Sheet1.Range('A13:H13').Borders.Item(4).Linestyle = 0; Sheet1.Range('A14:H14').Borders.Item(3).Linestyle = 0; % 设置单元格对齐方式 Sheet1.Range('A1:H9').HorizontalAlignment = 3; Sheet1.Range('A4:A9').HorizontalAlignment = 6; Sheet1.Range('C4:C7').HorizontalAlignment = 6; Sheet1.Range('E4:E7').HorizontalAlignment = 6; Sheet1.Range('G4:G7').HorizontalAlignment = 6; Sheet1.Range('A10:H10').HorizontalAlignment = 6; Sheet1.Range('A11:H11').HorizontalAlignment = 6; % -4130 Sheet1.Range('A11:H11').VerticalAlignment = 1; Sheet1.Range('A12:H12').HorizontalAlignment = 4; Sheet1.Range('A13:H13').VerticalAlignment = 1; Sheet1.Range('A14:H14').HorizontalAlignment = 4; Sheet1.Range('D16:H16').HorizontalAlignment = 4; % 写入单元格内容 Sheet1.Range('A1').Value = '试卷分析'; Sheet1.Range('A2').Value = '（ 2009 — 2010 学年第一学期）'; Sheet1.Range('A4:H4').Value = {'课程名称','','课程号',... '','任课教师学院','','任课教师',''}; Sheet1.Range('A5:H5').Value = {'授课班级','','考试日期',... '','应考人数','','实考人数',''}; Sheet1.Range('A6:H6').Value = {'出卷方式','','阅卷方式',... '','选用试卷A/B','','考试时间',''}; Sheet1.Range('A7:H7').Value = {'考试方式','','平均分',... '','不及格人数','','及格率',''}; Sheet1.Range('A8').Value = '成绩分布'; Sheet1.Range('B8').Value = '90分以上人占 %'; Sheet1.Range('E8').Value = '80---89分人占 %'; Sheet1.Range('B9').Value = '70---79分人占 %'; Sheet1.Range('E9').Value = '60---69分人占 %'; Sheet1.Range('A10').Value = ['试卷分析（含是否符合教学大纲、难度、知识覆'... '盖面、班级分数分布分析、学生答题存在的共性问题与知识掌握情况、教学中'... '存在的问题及改进措施等内容）']; Sheet1.Range('A12').Value = '签字 : 年月日'; Sheet1.Range('A13').Value = '教研室审阅意见：'; Sheet1.Range('A14').Value = '教研室主任（签字）: 年月日'; Sheet1.Range('D16').Value = '主管院长签字：年月日'; % 设置字号 Sheet1.Range('A4:H12').Font.size = 10.5; % 设置单元格A4至H12的字号为10.5 Sheet1.Range('A1').Font.size = 16; % 设置单元格A1的字号为16 Sheet1.Range('A1').Font.bold = 2; % 单元格A1的字体加粗 % 插入图片，如果当前工作表中有图形存在，通过循环将图形全部删除 Shapes = Sheet1.Shapes; % 返回第1个工作表的Shapes接口的句柄 if Shapes.Count ~= 0; for i = 1 : Shapes.Count; Shapes.Item(1).Delete; % 删除第1个Shape对象 end; end; % 产生均值为75，标准差为4的正态分布随机数，画直方图，并设置图形属性 zft = figure('units','normalized','position',... [0.280469 0.553385 0.428906 0.251302],'visible','off'); % 新建图形窗口，设为不可见 set(gca,'position',[0.1 0.2 0.85 0.75]); % 设置坐标系的位置和大小 data = normrnd(75,4,1000,1); % 产生均值为75，标准差为4的正态分布随机数 hist(data); % 绘制正态分布随机数的频数直方图 grid on; % 添加参考网格 xlabel('考试成绩'); % 为X轴加标签 ylabel('人数'); % 为Y轴加标签 hgexport(zft, '-clipboard'); % 将直方图复制到剪贴板 % 选中工作表Sheet1的A11单元格，插入由MATLAB命令作出的直方图 Sheet1.Range('A11').Select; Sheet1.Paste % Sheet1.PasteSpecial; delete(zft); % 删除图形句柄 Workbook.Save % 保存文档

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章