vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Powerpoint 
Autor: Capslock
Datum: 05.02.02 20:40

Also, hab folgenden Code:

Private Sub CommandButton1_Click()
Dim i As Integer

For i = 1 To 1000
With ActivePresentation.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.LoopUntilStopped = msoTrue
.ShowWithNarration = msoTrue
.ShowWithAnimation = msoTrue
.RangeType = ppShowAll
.AdvanceMode = ppSlideShowRehearseNewTimings
.PointerColor.SchemeColor = ppForeground
.Run
End With

SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next
SlideShowWindows(Index:=1).View.Next

Next i
End Sub


Damit wird jede Animation nacheinander abgespielt! Das ist ja schon ein Teil, wie ich es wollte! Aber ich hab für jede Folie bestimmte Zeiten eingestellt, wann auf die nächste Folie gewechselt werden soll (z.B: 10 sek.)! Dies wiord hier leider nicht eingehalten! Hat jemand ne Idee, wie das geht?

mfg und Danke
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Powerpoint57Capslock05.02.02 19:12
Re: Powerpoint653unbekannt05.02.02 19:15
Re: Powerpoint41Capslock05.02.02 19:19
Re: Powerpoint41Capslock05.02.02 20:40
Re: Powerpoint760unbekannt05.02.02 20:48
Re: Powerpoint41Capslock05.02.02 21:08
Lesen sollte man können ;) Danke36Capslock05.02.02 21:14
Es lag an MsgBox ... seufz ... (oT)677unbekannt05.02.02 21:51

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel