http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FPowerPoint%2FSlide_Show
VBA/Excel/Access/Word/PowerPoint/Slide Show - История изменений
2026-04-05T01:06:29Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Show&diff=1236&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Show&diff=1237&oldid=prev
Admin: 1 версия
2010-05-26T12:46:39Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Deleting a Custom Show==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub del()<br />
ActivePresentation.SlideShowSettings.NamedSlideShows("Overview").Delete<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Exiting the Slide Show==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub view()<br />
ActivePresentation.SlideShowWindow.View.Exit<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Moving from Slide to Slide==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub current()<br />
MsgBox ActivePresentation.SlideShowWindow.View.CurrentShowPosition<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Pausing the Show and Using White and Black Screens==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub show()<br />
ActivePresentation.SlideShowWindow.View.State = ppSlideShowBlackScreen<br />
ActivePresentation.SlideShowWindow.View.State = ppSlideShowWhiteScreen<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==ppShowTypeKiosk==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub show()<br />
With ActivePresentation.SlideShowSettings<br />
.LoopUntilStopped = msoCTrue<br />
.AdvanceMode = ppSlideShowUseSlideTimings<br />
.ShowType = ppShowTypeKiosk<br />
.Run<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==ppShowTypeSpeaker==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub show()<br />
With ActivePresentation.SlideShowSettings<br />
.LoopUntilStopped = msoCTrue<br />
.AdvanceMode = ppSlideShowUseSlideTimings<br />
.ShowType = ppShowTypeSpeaker<br />
.Run<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==ppShowTypeWindow==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub show()<br />
With ActivePresentation.SlideShowSettings<br />
.LoopUntilStopped = msoCTrue<br />
.AdvanceMode = ppSlideShowUseSlideTimings<br />
.ShowType = ppShowTypeWindow<br />
.Run<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Show slides 4 through 8 in the presentation==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub settings()<br />
With Presentations("Corporate.ppt").SlideShowSettings<br />
.RangeType = ppShowSlideRange<br />
.StartingSlide = 4<br />
.EndingSlide = 8<br />
.Run<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Starting and Stopping Custom Shows==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub goto()<br />
SlideShowWindows(1).GotoNamedShow SlideShowName:="New Show"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Starting a Slide Show==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub run()<br />
ActivePresentation.SlideShowSettings.Run<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To display a particular slide in the slide show, use the GotoSlide method of the View object, using the Index argument to specify the slide number.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub gotoSlide()<br />
Application.SlideShowWindows(1).View.GotoSlide Index:=5<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To display the first slide in the presentation, use the First method.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub first()<br />
ActivePresentation.SlideShowWindow.View.First<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To display the last slide, use the Last method:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub last()<br />
ActivePresentation.SlideShowWindow.View.Last<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To display the next slide, use the Next method.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub next()<br />
ActivePresentation.SlideShowWindow.View.Next<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To display the previous slide, use the Previous method.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub viewNext()<br />
ActivePresentation.SlideShowWindow.View.Next<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To exit a custom show, use the EndNamedShow method and then use the Next method to advance the presentation.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub show()<br />
With ActivePresentation.SlideShowWindow.View<br />
.EndNamedShow<br />
.Next<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To start running a custom show==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub slide()<br />
With ActivePresentation.SlideShowSettings<br />
.RangeType = ppShowNamedSlideShow<br />
.SlideShowName = "Short Show"<br />
.Run<br />
End With<br />
End Sub<br />
</source></div>
Admin