http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FPowerPoint%2FSlide_Shape
VBA/Excel/Access/Word/PowerPoint/Slide Shape - История изменений
2026-04-05T08:06:28Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Shape&diff=1216&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_Shape&diff=1217&oldid=prev
Admin: 1 версия
2010-05-26T12:46:37Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==add a bent-up arrow to the upper-right corner of the penultimate slide in the active presentation:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub bendUp()<br />
ActivePresentation.Slides(ActivePresentation.Slides.Count 1) _<br />
.Shapes.AddShape Type:=msoShapeBentUpArrow, Left:=575, Top:=10, _<br />
Width:=150, Height:=75<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Copying Formatting from One Shape to Another==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub active()<br />
With ActivePresentation<br />
.Slides(2).Shapes(1).PickUp<br />
.Slides(4).Shapes(3).Apply<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Deleting a Shape==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub del()<br />
ActivePresentation.Slides(2).Shapes(1).Delete<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Finding Out Whether a Shape Has a Text Frame==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub shape()<br />
If ActivePresentation.Slides(1).Shapes(1).HasTextFrame = msoTrue Then<br />
MsgBox "The shape contains a text frame."<br />
End If<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Repositioning and Resizing a Shape==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub pos()<br />
With ActivePresentation.Slides(1).Shapes(1)<br />
.Left = 200<br />
.Top = 100<br />
.Width = 300<br />
.Height = 200<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Selecting All Shapes==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub select()<br />
ActivePresentation.Slides(myPresentation.Slides.Count).Shapes.SelectAll<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Setting an Animation for a Shape or a Range of Shapes==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
"Applies a custom animation to the first shape on the slide.<br />
Sub setting()<br />
With ActiveSlide.Shapes(1).AnimationSettings<br />
.EntryEffect = ppEffectFlyFromRight<br />
.AdvanceMode = ppAdvanceOnClick<br />
.SoundEffect.ImportFromFile FileName:="D:\Whistle.wav"<br />
.TextLevelEffect = ppAnimateByFirstLevel<br />
.TextUnitEffect = ppAnimateByParagraph<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Works with the first shape on the third slide of the presentation, moving it 100 points to the left and 200 points down, and rotating it 90 degrees counterclockwise:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub shape()<br />
With ActivePresentation.Slides(3).Shapes(1)<br />
.IncrementLeft Increment:=-100<br />
.IncrementTop Increment:=200<br />
.IncrementRotation Increment:=-90<br />
End With<br />
End Sub<br />
</source></div>
Admin