Dianummer gebruiken om terug te keren naar die dia

Status
Niet open voor verdere reacties.

gGerretje

Gebruiker
Lid geworden
12 mrt 2008
Berichten
437
Hallo helpers,

Ik heb een fotoboek gemaakt voor een vereniging.
Je kunt zoeken op naam en op pasfoto.

Op naam zoeken gaat perfect, en als ik op de pagina van een persoon kies voor terugkeren naar de zoekpagina kom ik netjes terug bij de namenlijsten.

Het zoeken op pasfoto ging ook perfect toen ik nog maar een paar leden erin had staan.
Dan keerde ik terug naar de laatste zoekpagina.
Dit doe ik met de variabele 'DiaVoorZoekMethode'. Zoeken op naam geeft waarde 3 en keert dus terug naar dia 3.
Zoeken op pasfoto geeft waarde 4 en keert dus terug naar dia 4.

Maar nu het probleem:
Als ik op pasfoto's wil zoeken, blijf ik natuurlijk niet op dia 4 maar blader ik ook naar 5 (en eventueel volgende pasfotopagina's).
Echter staat mijn variabele nog steeds op 4 dus keer ik van de persoonspagina steeds weer terug naar dia 4 terwijl ik van 5 vertrokken ben.

De vraag:
Hoe kan ik in de huidige code eenvoudig die variabele aanpassen naar 5 als ik op dia 5 kom.

Ik hoop dat iemand mij kan helpen.
Alvast bedankt.

Met vriendelijke groet,
Ger
 

Bijlagen

  • testFotoboek.rar
    80 KB · Weergaven: 38
Laatst bewerkt:
Voeg in Module1 direct onder de Public opdracht dit toe:
Code:
Dim X As New EventClassModule

Sub Auto_Open()
    Set X.App = Application
End Sub

En maak een Class module die je EventClassModule noemt. Hierin zet je dit:
Code:
Public WithEvents App As Application

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    DiaVoorZoekMethode = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
    'MsgBox DiaVoorZoekMethode
End Sub

De variabele DiaVoorZoekMethode zal nu bij iedere diawisseling het nummer van de actieve dia krijgen.

De Class ter illustratie:
Class.JPG

Als extra heb je nu het voordeel dat je op alle events in de applicatie kunt reageren :)
In dit geval is het de gebeurtenis: SlideShowNextSlide
 
Laatst bewerkt:
Hallo Ed,

Ik ben geen VBA specialist.
Na-apen en proberen te begrijpen wat er gebeurt is zo'n beetje wat ik normaal gesproken doe.
Tot dusverre ben ik daar in deze presentatie nog wel uitgekomen.
Maar nu weet ik nog even niet wat ik aan het doen ben.
Ik heb het aangepast, en ik denk dat ik het gedaan heb zoals je aangeeft.
Maar het werkt niet zoals ik het wil en dus ... loop ik vast.
Ik klik dus op 'zoeken op pasfoto. Kom bij de pasfotopagina met Jan, scroll door naar de pasfotopagina met Piet, klik en kom op de Piet's pagina, maar ga dan niet rechtstreeks terug naar de pasfotopagina van Piet.

Ik heb voor de zekerheid ook het commentaaraccentje voor de messagebox weggehaald, maar krijg ook geen messagebox.

Bijgaand het aangepaste bestand.
Mag ik je vragen om eens te kijken waar ik de boot gemist heb?

Alvast bedankt,

Groet,
Ger
 

Bijlagen

  • test2Fotoboek.rar
    69,3 KB · Weergaven: 43
Je hebt de instructies correct opgevolgd want je document uit #3 doet het hier prima. Ik krijg in inder geval die messagebox met het dianummer.
Welke versie van Office gebruik je?
 
Hallo Ed,

Bedankt nogmaals voor je inspanningen.
Ik gebruik Office 2010.
Dat zou toch nieuw genoeg moeten zijn, niet?

Groet,
Ger
 
Dat lijkt mij ook, maar ik gebruik hier Office 2016. Morgen heb ik wel de beschikking over 2003, 2007, 2010, 2013 en 2016. Ik zal het dan in Office 2010 eens proberen.
 
Bedankt alvast.

Ik heb het net ook nog even op een 2003 versie geprobeerd, en dat werkt ook niet.
Fijn dat je het nog even wil testen.
Ik wacht het even af.

Groet,
Ger
 
De oorzaak is bekend. De Classmodule moet worden geladen op het moment dat Powerpoint start. Om dit te doen heb ik de routine Auto_Open toegevoegd. Om deze te kunnen gebruiken is er een add-in nodig die ik al eens had geïnstalleerd. Jij zal deze niet hebben. Vandaar dat het bij mij wel werkt en bij jou niet.

Het gaat om een add-in met de naam AutoEvents. Deze kan je downloaden van de volgende website:
http://skp.mvps.org/autoevents.htm

Hoe je deze vervolgens kan installeren staat er ook beschreven. De beschrijving is echter voor Powerpoint 2000 en dat is wat anders dan Powerpoint 2010. Probeer het eens. Mocht het niet lukken zal ik een installatiebeschrijving voor je maken die geldig is voor Powerpoint 2007 en hoger.
 
Ik snap niet dat je dat met VBA wilt oplossen; als ik je vraag goed interpreteer wil je alleen terug naar de vorige dia. En dat kan met een simpele actie op een knop die in het diamodel staat. Hoef je helemaal geen VBA voor te gebruiken.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan