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

大家看看這段對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 With
With 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的其它頁中也呈現相同的效果。
大家看看我對這段的理解是不是正確呢？

------解决方案--------------------
正確正確

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

相关推荐