首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

大家看看這段對PowerPoint操作的代碼是什么意思?该如何处理

2012-01-09 
大家看看這段對PowerPoint操作的代碼是什么意思?VB codepptap.ActiveWindow.View.GotoSlide(Index:14)ppt

大家看看這段對PowerPoint操作的代碼是什么意思?

VB code
pptap.ActiveWindow.View.GotoSlide(Index:=14)pptap.ActiveWindow.Selection.SlideRange.Shapes.AddPicture(FileName:=Trim(RFQ_COM.startPath & "\XX_SEC_LINE.jpg"), LinkToFile:=MsoTriState.msoFalse, SaveWithDocument:=MsoTriState.msoTrue, Left:=-314, Top:=-404, Width:=1350, Height:=1350).Select()With pptap.ActiveWindow.Selection.ShapeRange    .PictureFormat.CropTop = 431.25    .PictureFormat.CropBottom = 346.13    .PictureFormat.CropLeft = 295.13    .PictureFormat.CropRight = 249.75    .ScaleWidth(0.25, MsoTriState.msoFalse, MsoScaleFrom.msoScaleFromTopLeft)    .ScaleHeight(0.25, MsoTriState.msoFalse, MsoScaleFrom.msoScaleFromTopLeft)    .IncrementLeft(419.0#)    .IncrementTop(272.0#)End WithWith pptap.ActiveWindow    .Selection.Copy()    .View.GotoSlide(Index:=16)    .View.Paste()    .View.GotoSlide(Index:=19)    .View.Paste()    .View.GotoSlide(Index:=20)    .View.Paste()    .Selection.Unselect()End With


我看過這段代碼之后的理解是:向ppt的第14頁中插入XX_SEC_LINE.jpg這張圖片,然后設置圖片在頁面的格式(寬、高、縮放比例等)。然后采用復制粘貼的方式,使這張圖片在ppt的其它頁中也呈現相同的效果。
大家看看我對這段的理解是不是 正確呢?

[解决办法]
正確正確

热点排行
Bad Request.