|
Guten Morgen zusammen,
ich möchte eine bestimmte Excel-Datei und eine PPT Datei aus einem Excel-Tool heraus öffnen. Dann muss ich zwischen diesen hin und her springen, da ich Diagramme von A nach B kopieren möchte.
Bis jetzt sieht das Ganze so aus:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub DateiOeffnen(Pfad As String)
ShellExecute Application.hwnd, "Open", Pfad, _
vbNullString, vbNullString, vbNormalFocus
End Sub
...
'ExcelDatei öffnen
DateiOeffnen aPath
'PPTDatei öffnen
DateiOeffnen pPath
AppActivate ("Analyse.xlsx - Excel")
Sheets("Rev. PL Level").Select
ActiveSheet.ChartObjects("Chart 3").Activate
ActiveChart.ChartArea.Copy
AppActivate ("Präsentation.pptx - PowerPoint")
Das Öffnen klappt problemlos, aber switchen kann ich leider nicht. Analyse und Präsentation sind die jeweiligen Dateinamen.
Vielen Dank!
|