|
这个查帮助就可以了。帮你贴出代码如下:
Private Sub CommandButton1_Click() '按钮1
With ActivePresentation
.Slides(3).SlideShowTransition.Hidden = msoFalse
.Slides(5).SlideShowTransition.Hidden = msoFalse
.Slides(6).SlideShowTransition.Hidden = msoFalse
.Slides(4).SlideShowTransition.Hidden = msoTrue
.Slides(7).SlideShowTransition.Hidden = msoTrue
.Slides(8).SlideShowTransition.Hidden = msoTrue
End With
End Sub
Private Sub CommandButton2_Click() '按钮2
With ActivePresentation
.Slides(4).SlideShowTransition.Hidden = msoFalse
.Slides(7).SlideShowTransition.Hidden = msoFalse
.Slides(8).SlideShowTransition.Hidden = msoFalse
.Slides(3).SlideShowTransition.Hidden = msoTrue
.Slides(5).SlideShowTransition.Hidden = msoTrue
.Slides(6).SlideShowTransition.Hidden = msoTrue
End With
End Sub |
|