Wie man eine Schleife in Powerpoint VBA Stack-Überlauf machen

Soweit ich weiß, unter dem Code eine Form aus dem aktiven Fenster wird, stößt es ein wenig, kopiert die Rutsche und Pasten es direkt nach dem aktuellen, dreht dann die eingefügte Folie in ein aktives Fenster, und stupst es wieder:







Soweit ich verstehen kann, um diesen Code zu implementieren, sollte ich ein aktives Fenster geöffnet haben und es sollte in sie mindestens eine Form aufweisen. Bevor ich diesen Code ausführen habe ich nur eine Folie; nachdem der Code ausgeführt wurde, ich habe zwei Dias: die ältere ist die Nummer 1, und die neuere ist die Nummer 2.

Wenn ich diesen Code ein weiteres Mal laufe, werde ich drei Dias als Ergebnis erhalten: das älteste Wesen immer noch die Nummer 1, aber die ältesten Wesen Nummer 2, nicht die Nummer 3.

Meine Frage ist, wie kann ich es Dias produzieren zu machen, so dass die neueren Dias sind immer die, die mit einer größeren Ordnungszahl, das heißt jede neu erstellte Folie sollte das letzte in der Dia-Vorschau Seitenleiste (die niedrigste) sein?







Und auch, wie kann ich es in eine Schleife? Damit ich nicht brauchen, um wieder läuft diesen Code wieder und wieder, sondern einfach eine Schleife mit einer bestimmten Anzahl von Iterationen der Schleife machen.

Ich denke, wenn es eine Schleife sein soll, dann gleitet Index in eine Variable gedreht werden soll, aber ich weiß nicht, wie es in Powerpoint VBA zu tun.

Ich bin mir nicht sicher, dass Ihr Code macht keinen Sinn. Es im Wesentlichen:

  1. Ruft den ersten Schlitten
  2. Ruft die erste Form auf der Folie
  3. Bewegt es 1 Einheit nach rechts
  4. Kopiert den ersten Schlitten
  5. Fügt es sich als zweite Schlitten
  6. Ruft die erste Form auf den neuen zweiten Schlitten
  7. Bewegt es 1 Einheit nach rechts

Warum ist es zweimal bewegt, einmal auf dem Original und einmal auf der Kopie?

Egal, spezifische Fragen zu beantworten:

Um es als letzte Folie einfügen, ersetzen

Um Schleife etwas wie folgt verwenden:

Dies nimmt die letzte Folie, kopiert es, Pasten der Kopie als neue letzten, stupst die erste Form nach rechts, nimmt neue letzte Folie kopiert, Pasten die Kopie als die letzten, stupst die erste Form auf den rechten Seite, usw. Es wird diese 10-mal tun.







In Verbindung stehende Artikel