大家看看這段對PowerPoint操作的代碼是什么意思?
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