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
|