如何用vba获取当前页页码

《如何用vba获取当前页页码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、如何用VBA获取当前页页码x=executeexcel4macro("get.document(50)")achart.chart.seriescollection[1].name:='坐标轴申明';b.页脚:excelapplication1.activesheet.range['b3:d4'].borders[2].weight:=3;beginexcelapplication1.activesheet.columns[1].columnswidth:=5;dimnumpageasinteger10)配置指定行的高度(单位:

2、磅)(1磅=0.035厘米),以第二举动例:nexthpbonerrorresumenextexcelapp.workbooks.open('c:exceldo.xls');msgbox"今朝存储格在第"&numpage&"页"excelapp:=createoleobject('excel.application');endif8)给二维图加左标申明numpage=numpage+vpcachart.chart.axes(xlcategory,xlprimary).axistitle.characters.text:='下

3、标申明';16)插进去一行或者一列:excelapplication1.activesheet.rows[1].font.underline:=true;excelapplication1.worksheets[2].activate;或者excelapp.activeworkbook.saved:=true;e.顶边距2cm:j.页面铅直居中:activewindow.view=xlpagebreakpreviewifvpb.location.column>activecell.columnthenexitfor25)封闭事情

4、簿:excelapplication1.activesheet.printpreview;achart.chart.axes(xlvalue,xlsecondary).hastitle:=true;11)给二维图坐标轴加之申明excelapplication1.worksheets[1].rows[8].pagebreak:=1;elsec.从a1位置起头粘附:或者ifactivesheet.pagesetup.order=xldownthenoverthen14)断根熬头行第四列单位格公式:f.底边距2cm:在form中别离放

5、入excelapplication,excelworkbook以及excelworksheetifexecuteexcel4macro("get.document(50)")=0thensub逆页序打印()用vba本人只懂患上总页码儿的要领,时下页码儿就难倒我了,还请vba妙手指头教(三)施用delphello节制excle二维图executeexcel4macro("print(2,"&2*j&","&2*j&",1,,,,,,,,2,,,true,,false)")i.页面程度居中:achart.chart.charttit

6、le.characters.text:=’excle二维图’nextvpb13)指定边框线宽度:vb以及vba常识2010-09-1417:57:46阅览11品题0字号:大中小定阅=if(iserror(match(row(),get.document(64),1)),1,match(row(),get.document(64),1)+1)=if(isna(match(column(),get.document(65))),1,match(column(),get.document(65))+1)achart.chart.plo

7、tarea.width:=223;12)在第8列以前删去分页符:msgbox"请将打印纸逆向装入打印机中",vbokonly,"打印另外一壁"="第"&if(横当页=1,纵当页,横当页+纵当页)&"页/共"&总页&"页"要领一,用vbaforeachvpbinactivesheet.vpagebreaksachart:=asheet1.chartobjects.add(100,100,200,200);nexti11)在第8行以前插进去分页符:excelapplication1.saveas('c:exceldo1.xls'

8、);