Müssen Form position in PowerPoint auf den gleichen Wert über alle Folien

Ich habe Dutzende von PowerPoint-shows, die enthalten Dutzende von Schieber. Sie sind sehr einfach in, dass es nur eine Form, die auf jeder Folie und es wird keine animation verwendet wird, auf die Form oder zwischen den Folien. Das Problem ist, dass die person, die Sie erstellt hat nicht wirklich achten Sie auf die vertikale position der Formen von Folie zu Folie, so ist es sehr Auffällig, wenn Sie von einer Folie zur nächsten.

Ich würde gerne in der Lage, schnell legen Sie die vertikale position auf den gleichen Wert für jede Form auf jeder Folie. Die horizontale position ist in Ordnung. Ich mache Sie manuell, aber es gibt eine Menge von Dias und dia-shows durch zu gehen, und ich würde lieber nicht haben, um dies zu tun, da es sehr zeitaufwendig.

Ich habe getan, einige suchen hier auf dieser Website als auch bei Google aber nicht gefunden habe, noch nichts. Wenn es erfordert VBA-code, das ist auch in Ordnung.

Bin ich mit PowerPoint 2010.

InformationsquelleAutor N1tr0 | 2013-02-03

  1. 1

    Als Ausgangspunkt (total air code, wohlgemerkt):

    Sub LineEmUpDano()
  Dim oSl as Slide
  Dim sngTop as Single

  ' Pick up the top position of the first shape
  ' on the first slide:
  SngTop = ActivePresentation.Slides(1).Shapes(1).Top

  ' Apply the top position to each slide in the pres
  For Each oSl in ActivePresentation.Slides
    oSl.Shapes(1).Top = sngTop
    ' you could instead use
    ' oSl.Shapes(1).Top = 42 ' or whatever value you like
    ' Values are in points, 72 points to the inch
  Next  ' slide
End Sub
    Dank Steve! Ich werde das ausprobieren, wenn ich eine chance und lassen Sie wissen, wie es sich herausstellt.
    Mit ein wenig mehr Graben und spielen herum, ich habe es zu arbeiten. Danke, dass du für mich immer in die richtige Richtung. Ich habe auch bemerkt, es gab eine Menge von leeren AutoFormen und ich war in der Lage, um loszuwerden, diejenigen, die als gut.

    InformationsquelleAutor Steve Rindsberg

  2. 0

    Mit Steve ' s Vorschlag von oben, wie ein Sprung-off-Punkt und dann Lesen einiger tutorials war ich in der Lage zu kommen mit einem Skript arbeiten:

    Sub UniformHeight()
    Dim SlideToCheck As Slide
    Dim ShapeIndex As Integer

    For Each SlideToCheck In ActivePresentation.Slides
        For ShapeIndex = SlideToCheck.Shapes.Count To 1 Step -1
            SlideToCheck.Shapes(ShapeIndex).Top = 36
        Next
    Next
End Sub

    InformationsquelleAutor N1tr0

Schreibe einen Kommentar