title image


Smiley Re: Folienwechsel per ID oder Name
Hab das Problem gelöst.



Auf jeder Folie eine Schaltfläche einfügen und danach löschen wenn nicht benötigt.

Im Code im Eigenschaftsfenster der Folie Namen vergeben.

Als Ereignis für Schaltfläche:



Private Sub CommandButton1_Click()



Dim x As Slide

Set x = ActivePresentation.Slides.Item("Start")



With SlideShowWindows(1).View

.GotoSlide x.SlideIndex

End With



Set x = Nothing

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: