---

Standardansichten2PPT.txt

Hallo zusammen,

ich würde gerne ein Makro schreiben, das mir standardisierte Ansichten eines Bauteils direkt in Powerpoint einfügt.
Ich habe dazu ein Makro gefunden und auch entsprechend angepasst, jedoch werden alle Bilder auf eine Folie eingefügt. Ich würde jedoch gerne jeden Screenshot auf einer seperaten Folie einfügen.

Mein aktueller Stand ist im Anhang.
Da ich ein absoluter VB-Nerd bin und VBA&VBS wohl doch etwas unterschiedlich sind, stehe ich momentan auf dem Schlauch.

Kann mir da jemand helfen?

Besten Dank und schönen Gruß

Sebbo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Das Thema gehört eher in ein PowerPoint bzw Microsoft Office-Forum.
Wenn du den Code durchliest wirst du erkennen, dass nur wenn keine Präsentation geöffnet ist eine Folie erstellt wird (Set PptCurrentSlide = PptPresentations.Slides.Add (1, 12)).
Du musst den Code umbauen dass immer eine neue Folie erstellt wird (siehe VBA-Doku von Powerpoint).

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo und besten dank für die Unterstützung,

deswegen habe ich nach dem 2. Screenshot (Ansicht unten) die If-Methode weggelassen.
Es werden ja auch 2 Folien eingefügt, aber die Screenshots landen immer auf der 2. Folie...

Besten Dank
Sebbo

[Diese Nachricht wurde von QuickSB am 08. Jun. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Zwei Sachen habe ich noch zusätzlich gefunden. Aus Gründen der Skalierbarkeit solltest du die Erstellung der Screenshots in eine eigene Funktion ausgliedern (diese kannst du dann aus der Hauptroutine bei Bedarf einfach immer wieder aufrufen).

Zusätzlich würde ich die Bilder auf keinen Falls als BMP abspeichern. JPG ist hier sinnvoller da sonst deine PowerPoint Präsentation zu groß wird.

Das Thema der Folien / Einfügepunkte liegt wahrscheinlich an der Instanzierung der letzen Folie. ich würde versuchen diese direkt aus der Slide-Collection (mittels Item und Count-1) aufzurufen und nicht über die Selektions-Funktion zu gehen.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP