Out of Range Error mit Power Point

Dieses Thema Out of Range Error mit Power Point im Forum "Microsoft Office Suite" wurde erstellt von Guest, 26. Feb. 2005.

Thema: Out of Range Error mit Power Point Folgender Code verursacht bei mir einen Out of Range Error, leider weiß ich nicht warum....

  1. Folgender Code verursacht bei mir einen Out of Range Error, leider weiß ich nicht warum.
    -------------------------------------------------------------------------------------------
    Sub Anything()
    Dim sl As Slide
    Dim ii As Integer
    Dim i As Integer
    For Each sl In ActivePresentation.Slides
       If sl.Shapes.HasTitle = msoTrue Then
           If sl.Shapes.Title.TextFrame.HasText = msoFalse Then
               sl.Shapes.Title.Delete
           End If
       End If
       ii = sl.Shapes.Count
       i = 1
       MsgBox ii
       Do
           With sl.Shapes(i)
               If .HasTextFrame = msoTrue Then
                   With .AnimationSettings
                    .Animate = msoTrue
                     .EntryEffect = ppEffectFlyFromLeft
                    .TextLevelEffect = ppAnimateByFirstLevel
                    .AnimateBackground = msoTrue
                   End With
               End If
           End With
           i = i + 1
       Loop Until i < ii
    Next
    End Sub
    ---------------------------------------------------------------------------------------------
    Wäre nett wenn ich mir sagen könntet wo der Fehler liegt.
     
  2. Hi guest,

    in welcher Zeile bricht denn der Makro ab bzw. wann kommt diese Meldung ?

    So als Blinder ohne PP würde ich erstmal vorschlagen die Do-Schleife in eine For-Schleife zu ändern.

    For i=1 to ii
    ...
    next

    Gruß Matjes :)
     
  3. Bei der Zeile With sl.Shapes(i)
     
  4. Und was wurde vorher als->MsgBox ii' ausgegeben ?
     
Die Seite wird geladen...

Out of Range Error mit Power Point - Ähnliche Themen

Forum Datum
Computer unterstützt 85 Hz, krieg aber nen screen ´´out of range´´ wenn ich es aktivieren will Windows 7 Forum 30. Jan. 2011
Fenster drängen sich immer in den Vordergrund - wie verhindern? Windows XP Forum 11. Nov. 2007
Anzeige der vorangegangenen Webadressen Windows XP Forum 14. Sep. 2006
Problem mit Range Extender "D-Link DWL-G710" Windows XP Forum 1. Juli 2006
Range Extender als WLAN Empfänger benützen Windows XP Forum 25. Juni 2006