Hier ist ein Codebeispiel von einer Seite auf der PowerPoint-FAQ-Website, die ich pflege:
Arbeiten mit Guides in PPT 2013 und höher http://www.pptfaq.com/FAQ01214-Working-with-Guides-in-PPT-2013-and-later.htm
Wenn Sie nicht daran gewöhnt sind, mit VBA zu arbeiten, finden Sie unten auf dieser Seite einen Link zu einem einfachen Lernprogramm.
Auf diese Weise können Sie Horizont- / Vert-Hilfslinien hinzufügen, wo immer Sie möchten:
Sub AddGuides() Dim HGuides As String Dim VGuides As String Dim x As Long Dim aGuideArray() As String ' Edit these to indicate where you'd like to put guides: ' Values are in points, 72 points to the inch ' Separate each value from the next with a pipe | character ' Horizontal guide positions: HGuides = "72|144|256.5" ' Vertical guide positions: VGuides = "10|20|30|40|50|60|70|80|90|100" With ActivePresentation ' nb ppHorizonatalGuide = 1; ppVerticalGuide = 2 ' nb to add guides to master rather than slides, ' use .SlideMaster.Guides.Add below ' in place of .Guides.Add ' First add the horizontal guides aGuideArray = Split(HGuides, "|") For x = LBound(aGuideArray) To UBound(aGuideArray) .Guides.Add ppHorizontalGuide, CSng(aGuideArray(x)) Next ' and now the vertical guides aGuideArray = Split(VGuides, "|") For x = LBound(aGuideArray) To UBound(aGuideArray) .Guides.Add ppVerticalGuide, CSng(aGuideArray(x)) Next End With End Sub