http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FPowerPoint%2FSlide_Text
VBA/Excel/Access/Word/PowerPoint/Slide Text - История изменений
2026-04-05T08:06:41Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Text&diff=1238&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_Text&diff=1239&oldid=prev
Admin: 1 версия
2010-05-26T12:46:39Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Check whether the text frame contains text. To do so, check that the HasText property of the TextFrame object is msoTrue==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub shape()<br />
With ActivePresentation.Slides(1).Shapes(1).TextFrame<br />
If .HasText = msoTrue Then MsgBox .TextRange.Text<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Formatting the Bullets for a Text Range==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub bullet()<br />
With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.bullet<br />
.Type = ppBulletUnnumbered<br />
.Character = 254<br />
With .Font<br />
.Name = "Wingdings"<br />
.Size = 44<br />
.Color = RGB(255, 255, 255)<br />
End With<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Formatting the Text in a Text Range==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub format()<br />
With ActiveSlide.Shapes(2).TextFrame.TextRange.ParagraphFormat<br />
.Alignment = ppAlignLeft<br />
.LineRuleAfter = msoFalse<br />
.SpaceAfter = 18<br />
.LineRuleBefore = msoFalse<br />
.SpaceBefore = 18<br />
.LineRuleWithin = msoFalse<br />
.SpaceWithin = 12<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Returning and Setting the Text in a Text Range==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub set()<br />
ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text _<br />
= "Strategic Planning Meeting"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Returns the second through fifth words from the first shape on the first slide in the active presentation:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub text()<br />
MsgBox ActivePresentation.Slides(1).Shapes(1).TextFrame _<br />
.TextRange.Words(Start:=2, Length:=4)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Set the text of the second paragraph in the second shape on the sixth slide in the presentation==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub textRange()<br />
ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _<br />
.Paragraphs(Start:=2, Length:=1).Text = "VP of Business Development"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To use a picture as a bullet, set the Type property of the BulletFormat object to ppBulletPicture and then use the Picture method with the Picture argument==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub picture()<br />
With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.Bullet<br />
.Type = ppBulletPicture<br />
.Picture Picture:="z:\1.jpg"<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Use the AddTextbox Method to add a text box to the eighth slide and assign text to it==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub textBox()<br />
Dim myTextBox As Shape<br />
With ActivePresentation.Slides(1)<br />
Set myTextBox = .Shapes.AddTextbox _<br />
(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=50, _<br />
Width:=400, Height:=100)<br />
myTextBox.TextFrame.TextRange.Text = "Corrective Lenses"<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Use the AddTextEffect to add a WordArt. The WordArt item uses 54-point bold ITC Avant Garde Gothic.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub add()<br />
Dim QASlide As slide<br />
With ActivePresentation<br />
Set QASlide = .Slides.add(Index:=.Slides.Count + 1, Layout:=ppLayoutBlank)<br />
QASlide.Shapes.AddTextEffect PresetTextEffect:=msoTextEffect28, _<br />
Text:="Questions " + Chr$(CharCode:=13) + "Answers", _<br />
FontName:="Garde Gothic", FontSize:=54, FontBold:=msoTrue, _<br />
FontItalic:=msoFalse, Left:=230, Top:=125<br />
End With<br />
End Sub<br />
</source></div>
Admin