Thema Datum  Von Nutzer Rating
Antwort
08.04.2015 17:05:39 Rémi
NotSolved
08.04.2015 20:31:13 Gast53506
NotSolved
09.04.2015 11:22:15 Gast66807
NotSolved
Blau VBA powerpoint Folien Sortieren
09.04.2015 15:59:55 Gast36752
NotSolved

Ansicht des Beitrags:
Von:
Gast36752		 Datum:
09.04.2015 15:59:55		 Views:
828		 Rating:
     
Antwort:
  Ja
Thema:
VBA powerpoint Folien Sortieren

Ok  die 2 Fehler sind ich korriegiert :)

1) Pr oblem war mit der Index in der For  Loop

2)  Application.ScreenUpdating = True / Falsch addiert

Also sieht so aus jetzt

Public Sub RankSlide(PPPres As Object)
' Input powerpoint presentation not sorted
' Output presentation sorted

  Dim PPSlide As Object
  Dim PPSlideObject As Object
  Dim indexSlide As Integer
  Dim PPApp As Object
  Dim counterpage As Integer
 
Set PPApp = CreateObject("PowerPoint.Application")
Set PPSlide = PPPres.slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
 
 counterpage = 2

Dim i As Integer

Application.ScreenUpdating = False


  For i = 3 To PPPres.slides.Count
        If InStr(1, PPPres.slides(i).Shapes(1).TextFrame.TextRange, "CO2") = 1 Then
        ' check , ob CO2 in Titel gibt.
            PPPres.slides(i).Cut  ' cut
            PPPres.slides.Paste counterpage + 1 'fügt auf ein andereplatz in PPt
        End If
    Next i
Application.ScreenUpdating = True
End Sub 


viel SpaSS  an All VBA programmer :)

 

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
08.04.2015 17:05:39 Rémi
NotSolved
08.04.2015 20:31:13 Gast53506
NotSolved
09.04.2015 11:22:15 Gast66807
NotSolved
Blau VBA powerpoint Folien Sortieren
09.04.2015 15:59:55 Gast36752
NotSolved