http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FPowerPoint%2FSlide_Master 2026-04-05T07:52:26Z История изменений этой страницы в вики MediaWiki 1.30.0 http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/PowerPoint/Slide_Master&diff=1232&oldid=prev 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_Master&diff=1233&oldid=prev 2010-05-26T12:46:38Z

<p>1 версия</p> <p><b>Новая страница</b></p><div>==Checks that the title master exists and, if it does, formats the date and time to be visible and to use the dMMMyy format with automatic updating:==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub master()<br /> With ActivePresentation<br /> If .HasTitleMaster Then<br /> With .TitleMaster.HeadersFooters.DateAndTime<br /> .Visible = msoTrue<br /> .Format = ppDateTimedMMMyy<br /> .UseFormat = msoTrue<br /> End With<br /> End If<br /> End With<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==clears the HeaderFooter objects in the notes master in the first open presentation:==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub header()<br /> Presentations(1).NotesMaster.HeadersFooters.Clear<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Deleting a Master==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub titleMaster()<br /> If ActivePresentation.HasTitleMaster Then ActivePresentation.TitleMaster.Delete<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==To find out whether a presentation has a title master, check the HasTitleMaster property==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub hasMaster()<br /> If Not ActivePresentation.HasTitleMaster Then ActivePresentation.AddTitleMaster<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Working with Headers and Footers==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub footer()<br /> ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = &quot;text&quot;<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Working with the Handout Master==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub background()<br /> With ActivePresentation.HandoutMaster.Background<br /> .Fill.ForeColor.RGB = RGB(255, 255, 255)<br /> .Fill.BackColor.SchemeColor = ppAccent1<br /> .Fill.UserPicture &quot;d:\n.jpg&quot;<br /> End With<br /> End Sub<br /> &lt;/source&gt;<br /> <br /> <br /> <br /> <br /> ==Working with the Slide Master==<br /> <br /> <br /> <br /> <br /> &lt;!-- start source code --&gt;<br /> <br /> &lt;source lang=&quot;vb&quot;&gt;<br /> <br /> Sub addTitle()<br /> ActivePresentation.SlideMaster.Shapes.addTitle.TextFrame.TextRange.Text = _<br /> &quot;Orientation&quot;<br /> End Sub<br /> &lt;/source&gt;</div>

Admin