Ich bräuchte nochmals Eure Hilfe bitte:
In einer PowerPoint-Präsentation habe ich anklickbare Objekte, die Hyperlinks auf Zellen einer Excel-Tabelle enthalten. Klicke ich also im Präsentationsmodus auf ein entsprechendes PowerPoint-Objekt, wird die Excel-Datei geöffnet und die entsprechende Zelle gezeigt. Nun hätte ich gerne im Excel einen Button, mit dem ich wieder zurück in die PowerPoint-Präsentation komme. Dieser Button sollte oben in der Menüleiste auftauchen, da ich ihn nicht auf den vielen Arbeitsblättern immer einzeln einfügen möchte. Außerdem muß er natürlich bei jedem erscheinen, der die Datei öffnet, nicht nur bei mir, also muß er sozusagen im Dokument enthalten sein.
Ein Kollege hat mir dergleichen programmiert, nur leider gibt es folgendes Problem:
Ich habe ja meist PowerPoint im "normalen" Modus offen und starte daraus dann die Präsentation. Gehe ich nun durch klicken eines PowerPoint-Objektes in das Excel-Sheet, und drücke den programmierten "Zurück"-Button, so blinkt das Menüleistensymbol (XP) von PowerPoint, und zwar nicht die Präsentation, sondern der "normalen" Ansicht. Er springt also nicht in die Präsentation, die im Hintergrund noch offen ist.
Anbei mal der Code, den der Kollege geschrieben hat:
Private Sub Workbook_Open()
For Each bar In Application.CommandBars
If Not bar.BuiltIn Then bar.Delete
Next
Set oBar = Application.CommandBars.Add("Tool Bar", msoBarTop)
Set oPopUp = oBar.Controls.Add(msoControlPopup)
oPopUp.Caption = "
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each bar In Application.CommandBars
If Not bar.BuiltIn Then bar.Delete
Next
End Sub
Und:
Private Sub GoBack()
Dim App As Object
Set App = CreateObject("PowerPoint.Application")
App.Activate
SendKeys "{F5}"
Set App = Nothing
End Sub
Manchmal funktioniert es auch, aber es hat den Anschein, als müßte ich dafür PowerPoint und Excel erst ein paar Mal geöffnet bzw. dazwischen hin- und hergeswitcht haben, mal im Visual Basic Editor auf "F5" (aktualiseren?) drücken, dann geht es ...
Vielen Dank!!
Grüße, Marcus