Thema Datum  Von Nutzer Rating
Antwort
Rot Powerpoint
13.10.2015 20:10:39 Markus
NotSolved
14.10.2015 11:43:50 BigBen
NotSolved
14.10.2015 21:42:45 Gast77440
NotSolved
15.10.2015 00:21:02 BigBen
NotSolved
15.10.2015 11:38:48 BigBen
NotSolved
15.10.2015 22:36:05 Markus
NotSolved

Ansicht des Beitrags:
Von:
Markus
Datum:
13.10.2015 20:10:39
Views:
1429
Rating: Antwort:
  Ja
Thema:
Powerpoint

Hallo,

wer kann einen reiferen, unerfahrenen VBA Anwender weiterhelfen? :-) in aller kürze was ich gerne machen möchte: Beim starten einer Präsentation soll ein Makro eine Excelverknüpfung aktualiseren und dann die Präsentation ablaufen lassen (mit Addin). Das hab ich auch so weit hin bekommen, allerdings habe ich das Problem, dass die Präsentation im Hintergrund läuft und Powerpoint im Vordergrund ist. Anbei mein Ansatz:

Sub Auto_Open()
    Dim osld As Slide
     Dim oshp As Shape
     For Each osld In ActivePresentation.Slides
     For Each oshp In osld.Shapes
         If oshp.Type = msoLinkedOLEObject Then
             oshp.LinkFormat.Update
         End If
         Next oshp
     Next osld
    ActivePresentation.Save
    ActivePresentation.SlideShowSettings.Run
    WindowState = pptmWindowMinimized
End Sub

 

 WindowState = pptmWindowMinimized tut also nicht das was es soll! Alternativ habe ich auch SendKeys ("%{TAB}")  und sendkeys {F5} probiert, funktioniert beides auch nicht!

Hat jemand einen Tip für mich?

 

Besten Dank im Voraus

 

Markus

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Powerpoint
13.10.2015 20:10:39 Markus
NotSolved
14.10.2015 11:43:50 BigBen
NotSolved
14.10.2015 21:42:45 Gast77440
NotSolved
15.10.2015 00:21:02 BigBen
NotSolved
15.10.2015 11:38:48 BigBen
NotSolved
15.10.2015 22:36:05 Markus
NotSolved