Start- und Endpunkt einer Geraden in Powerpoint

Funktioniert gut, vielen Dank! Ausnahme: Bei waagrechten und senkrechten Geraden vertauscht er die Koordinaten; er nimmt dann X statt Y und umgekehrt. Macht aber nichts, denn ich kann ja vorher .Height = 0 bzw. .Width = 0 abfragen und weiß, dass
er in diesen Fällen X und Y vertauscht. Merci!

Mandala

Mit den ..Flip Eigenschaften kannst Du kucken ob rechts/links und/oder oben/unten verstauscht ist.

Sub Test()

  Dim Sh As Shape

  Dim T, L, B, R

  Set Sh = ActivePresentation.Slides(1).Shapes(1)

  With Sh

    T = .Top + IIf(.HorizontalFlip, .Height, 0)

    B = .Top + IIf(.HorizontalFlip, 0, .Height)

    L = .Left + IIf(.VerticalFlip, .Width, 0)

    R = .Left + IIf(.VerticalFlip, 0, .Width)

    MsgBox _

      "Start X" & T & " Y" & L & vbCrLf & _

      "Ende X" & B & " Y" & R

  End With

End Sub
Wenn Du Pfeile statt Linien hast, dann musst Du natürlich am Start .Line.BeginArrowheadStyle und am Ende .Line.EndArrowheadStyle auswerten. Die logische Richtung ist dann zu dem Punkt der den Wert msoArrowheadStealth hat.
Andreas.

Hallo Pauline

Danke viel Mal für deine Antwort.

Ich möchte aber nicht, dass wenn ich PowerPoint starte das Benutzerdefinierte A4 Format gerade als Standard erscheint. Ich möchte einfach das gespeicherte Desing (A4 Hochformat) auswählen können wenn ich es brauche.

Jedoch funktioniert das leider nicht. Ich kann das Benutzerdefinierte Format speichern, aber wenn ich PowerPoint neu starte und das Benutzerdefinierte Format auswähle, ändert sich nichts. Es bleibt einfach normal im Breitbildformat.

Hast du noch eine Idee?

Liebe Grüsse

Debora

Hallo,



es gibt von Shyam Pillai ein ADD-In welches die eine Kopie des Objekts am Endpunkt der Animation abbildet:



http://skp.mvps.org/mpepos.htm

Die Problematik der Position ist mir allerdings auch bekannt. Da gibt es auch meiner Sicht auch keine Lösung für. Trick wäre die Verkleinerung auf 0% und ein neues Objekt mit 50% Größe am Endpunkt einblenden lassen.

Schönen Gruß Thomas

Hallo G.O.Tuhls

Ich habe die Datei auf

http://www.file-upload.net/download-10395343/A48.docx.html

geladen.

In der Datei findest Du Tabellen und blaue "Knochen", die einzelne Zellen verbinden.

Ändern sich die Zellen, z.B. in der Höhe durch weiteren Text, oder ähnlichem, dann müssen diese Knochen angepasst werden. Dabei sollen die Endpunkte diese Knochen möglichst deckungsgleich sein.

Probiere das Verschieben einzelner Endpunkte.

Gruß

H.