http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FPowerPoint%2FSlide_Edit
VBA/Excel/Access/Word/PowerPoint/Slide Edit - История изменений
2026-04-05T07:15:33Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Edit&diff=1220&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_Edit&diff=1221&oldid=prev
Admin: 1 версия
2010-05-26T12:46:37Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Accessing a Slide by Name==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub Name()<br />
ActivePresentation.Slides(1).Name = "Introduction"<br />
ActivePresentation.Slides("Introduction").Select<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==assigns to the SlideRange object variable mySlideRange the slides named Intro and Outro in the active presentation:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub rangeArray()<br />
Set mySlideRange = ActivePresentation.Slides.Range(Array("Intro", "Outro"))<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Changing the Layout of an Existing Slide==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub layout()<br />
ActivePresentation.Slides(1).Layout = ppLayoutClipArtAndVerticalText<br />
End Sub<br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==Copying and Pasting a Slide==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub copy()<br />
ActivePresentation.Slides(1).Copy<br />
ActivePresentation.Slides.Paste Index:=5<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Deleting an Existing Slide==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub del()<br />
ActivePresentation.Slides(1).Delete<br />
End Sub<br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==Duplicating a Slide==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub Duplicate()<br />
ActivePresentation.Slides(4).Duplicate<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Finding a Slide by Its ID Number==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub addFromFile()<br />
Dim TargetSlide As Long<br />
TargetSlide = ActivePresentation.Slides.Add(Index:=5, Layout:=ppLayoutFourObjects).SlideID<br />
Presentations("C.ppt").Slides.InsertFromFile _<br />
FileName:="C:\A.ppt", Index:=3<br />
ActivePresentation.Slides.FindBySlideID(TargetSlide).ApplyTemplate _<br />
FileName:="C:\B.pot"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Inserting Slides from an Existing Presentation==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub insert()<br />
Presentations("Corporate.ppt").Slides.InsertFromFile _<br />
FileName:="C:\Your.ppt", Index:=5, _<br />
SlideStart:=2, SlideEnd:=8<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Moving a Slide==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub move()<br />
ActivePresentation.Slides(3).MoveTo ToPos:=1<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Working with a Range of Slides==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub range()<br />
Dim mySlideRange As SlideRange<br />
Set mySlideRange = Presentations("HR.ppt").Slides.Range(Array(1, 2, 3, 4, 5))<br />
End Sub<br />
</source></div>
Admin