VBA/Excel/Access/Word/PowerPoint/PowerPoint Format
Содержание
- 1 Applying a Background to One or More Slides
- 2 Applying a Color Scheme to a Slide
- 3 Check font size
- 4 Displaying or Hiding a Header or Footer Object
- 5 PowerPoint format ppSaveAsPresentation
- 6 Setting the Format for Date and Time Headers and Footers
- 7 Setting the Text in a Header or Footer
- 8 Standardizing All the Headers and Footers in a Presentation
Applying a Background to One or More Slides
<source lang="vb">
Sub background()
With Presentations("your.ppt").Slides(4) .FollowMasterBackground = msoFalse .DisplayMasterShapes = msoFalse With .Background .Fill.ForeColor.RGB = RGB(255, 255, 255) .Fill.BackColor.SchemeColor = ppAccent1 .Fill.UserPicture "C:\Winter.jpg" End With End With
End Sub
</source>
Applying a Color Scheme to a Slide
<source lang="vb">
Sub color()
ActivePresentation.Slides.Range(Array(1, 2, 3)) _ .ColorScheme.Colors(ppBackground).RGB = RGB(0, 0, 0)
End Sub
</source>
Check font size
<source lang="vb"> Option Explicit Function CheckMinFontSize(objPresentation As Presentation) As Boolean Dim objSlide As Slide Dim objShape As Shape CheckMinFontSize = True For Each objSlide In objPresentation.Slides objSlide.Select objSlide.Shapes.SelectAll For Each objShape In Windows(1).Selection.ShapeRange If objShape.Type = msoPlaceholder Then If objShape.TextFrame.TextRange.Font.Size < 14 Then CheckMinFontSize = False Exit Function End If End If Next objShape Next objSlide End Function Sub Font_Check() If CheckMinFontSize(ActivePresentation) = False Then Debug.Print "too small." End If End Sub </source>
<source lang="vb">
Sub footerV()
ActivePresentation.Slides(5).HeadersFooters.Footer.Visible = msoFalse
End Sub
</source>
PowerPoint format ppSaveAsPresentation
<source lang="vb">
Sub save()
ActivePresentation.SaveAs FileName:="C:\HR.ppt", _ FileFormat:=ppSaveAsPresentation, EmbedTrueTypeFonts:=msoFalse
End Sub
</source>
<source lang="vb">
Format Example ppDateTimeddddMMMMddyyyy Thursday, October 05, 2006 ppDateTimedMMMMyyyy 5 October 2006 ppDateTimedMMMyy 5-Oct-06 ppDateTimeHmm 10:17 ppDateTimehmmAMPM 10:17 AM ppDateTimeHmmss 10:17:16 ppDateTimehmmssAMPM 10:17:16 AM ppDateTimeMdyy 10/5/2006 ppDateTimeMMddyyHmm 10/5/2006 10:17 AM ppDateTimeMMddyyhmmAMPM 10/5/2006 10:17:16 AM ppDateTimeMMMMdyyyy October 5, 2006 ppDateTimeMMMMyy October 06 ppDateTimeMMyy Oct-06
</source>
<source lang="vb">
Sub footerText()
ActivePresentation.Slides(5).HeadersFooters.Footer.Text = "Confidential"
End Sub
</source>
<source lang="vb">
Sub Standardize_Headers_and_Footers()
Dim myPresentation As Presentation, mySlide As slide Set myPresentation = ActivePresentation For Each mySlide In myPresentation.Slides mySlide.HeadersFooters.Clear mySlide.DisplayMasterShapes = msoTrue Next mySlide With myPresentation.SlideMaster.HeadersFooters With .Footer .Visible = msoCTrue .Text = "Company Confidential" End With With .DateAndTime .Visible = True .UseFormat = True .Format = ppDateTimeMMMMyy End With End With
End Sub "Controlling the Show Type
</source>