Thema Datum  Von Nutzer Rating
Antwort
Rot  vba code ändern
 01.01.2013 17:17:14 un
NotSolved
03.01.2013 17:02:03 schokobons
NotSolved

Ansicht des Beitrags:
Von:
un		 Datum:
01.01.2013 17:17:14		 Views:
2398		 Rating:
     
Antwort:
  Ja
Thema:
vba code ändern

Hallo an alle,

gesundes neues Jahr erstmal.
Der folgende Code kopiert die aktuelle folie und kopiert sie in eine neue powerpoint. Allerdings erstellt der Code bei jedem click eine neue ppt. Ich möchte, dass die neue ppt nur beim erstmaligen click entsteht und alle weiteren ppt folien hintereinander eingefügt werden.

Oder noch besser wäre es, wenn ein extra button mir erlaubt eine vorher erstellte ppt "name XY" zu öffnen und dann alle slides, welche dann angeklickt werden) hintereinander in diese ppt einfügt.

Vielen Dank für euer Hilfe.

 

 Option Explicit
Public otarget As Presentation
Private Sub CommandButton1_Click()
Dim osource As Presentation
Dim currPos As Long
Set osource = SlideShowWindows(1).Parent
Application.WindowState = ppWindowMinimized
currPos = SlideShowWindows(1).View.Slide.SlideIndex
Err.Clear
On Error Resume Next
Debug.Print otarget.Name
If Err <> 0 Then Set otarget = Application.Presentations.Add
otarget.Slides.InsertFromFile osource.FullName, otarget.Slides.Count, currPos, currPos
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot  vba code ändern
 01.01.2013 17:17:14 un
NotSolved
03.01.2013 17:02:03 schokobons
NotSolved