MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft PowerPoint
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 03.07.2017, 19:49   #1
Hacklschorsch
Neuer Benutzer
Neuer Benutzer
Standard VBA - Check, ob Präsentation läuft

Hi Leute,
weiß jemand, wie ich per VBA ermitteln kann, ob die aktiv geöffnete Präsentation gerade im Präsentationsmodus oder im Editiermodus ist?
Ich finde einfach keine entsprechende Eigenschaft...

Danke, Gruß Georg
Hacklschorsch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.07.2017, 15:41   #2
Hans Hofmann
MOF Profi
MOF Profi
Standard

Yep, das ist ein Problem...
Simpellösung: On Error und auf SlideShowWindow zugreifen, bei Fehler gibbet das letzt genannte eben nicht.
Work a round:
Code:

If SlideShowWindows.Count = 0 Then
  ' There are no slide shows in progress
Else
  ' there's any slide show running
 '  search in list for ActivePresentation
End If

End Sub
oder jemand hat eine bessere Idee?

__________________

Gruß HW

WebSite: Veröffentlichungen zu PP & VBA


Geändert von Hans Hofmann (04.07.2017 um 15:51 Uhr).
Hans Hofmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2017, 12:20   #3
Hacklschorsch
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Top

Hallo Hans,

funktioniert perfekt, super !

So habe ich es jetzt gemacht:
Code:

Function CheckRunning() As Boolean
    If SlideShowWindows.Count = 0 Then
        CheckRunning = False
    Else
        CheckRunning = True
    End If
End Function
Vielen Dank, hatte schon viel versucht...

Gruß GEorg
Hacklschorsch ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.07.2017, 13:28   #4
Hans Hofmann
MOF Profi
MOF Profi
Standard

Hm,

Du prüfst ob irgend eine SlideShow gezeigt wird. Dazu ist das If etwas unhandlich:
Code:

CheckRunning = (SlideShowWindows.Count = 0)
Du weißt allerding nicht welche Präsentation da gezeigt wird,ist klar?

__________________

Gruß HW

WebSite: Veröffentlichungen zu PP & VBA

Hans Hofmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.08.2017, 08:24   #5
Zursalmarure
Neuer Benutzer
Neuer Benutzer
Standard

Das ist doch ausreichen?
Oder hat man normalerweise mehrere offen?
Zursalmarure ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:14 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.