Thema Datum  Von Nutzer Rating
Antwort
30.07.2015 09:23:53 Gast97829
NotSolved
Blau Zwei Anwendungen Öffnen und hin und her switchen
 30.07.2015 10:09:57 Gast53202
Solved
30.07.2015 11:16:11 Gast47958
NotSolved
31.07.2015 16:51:02 Gast28727
NotSolved
30.07.2015 12:08:39 Gast74753
NotSolved
31.07.2015 16:50:23 Gast55387
NotSolved
31.07.2015 16:50:50 Gast94684
NotSolved

Ansicht des Beitrags:
Von:
Gast53202		 Datum:
30.07.2015 10:09:57		 Views:
1433		 Rating:
     
Antwort:
 Nein
Thema:
Zwei Anwendungen Öffnen und hin und her switchen

Was du da treibst ist grundsätzlich der falsche Weg.

 

Hier ein Beispiel in der sogenannten LateBinding-Variante:

Option Explicit

Enum PpPasteDataType
  ppPasteOLEObject = 10
End Enum

Sub Bsp()
  
  Dim objPP As Object   'PowerPoint.Application
  Dim objPres As Object 'PowerPoint.Presentation
  Dim objShpRange As Object
  
  Set objPP = GetPowerPoint()
  
  Set objPres = objPP.Presentations.Open("D:\Präsentation1.pptx")
  
  Call Worksheets("Tabelle1").Shapes("Chart 3").Chart.ChartArea.Copy '<- ggf. den Diagrammnamen anpassen
  Set objShpRange = objPres.Slides(1).Shapes.PasteSpecial(ppPasteOLEObject)
  
  Call MsgBox(objShpRange.Count & " Shape(s) eingefügt" & vbNewLine & _
              "Name(1) = '" & objShpRange(1).Name & "'")
          
  
  Call objPres.Close 'Präsentation schließen
'  Call objPP.Quit    'PowerPoint schließen
  
End Sub

Public Function GetPowerPoint() As Object
  On Error Resume Next
  'PowerPoint Anwendung suchen
  Set GetPowerPoint = GetObject(Class:="PowerPoint.Application")
  'wenn keine PowerPoint Anwendung gefunden, neue erstellen/öffnen
  If GetPowerPoint Is Nothing Then
    Set GetPowerPoint = CreateObject("PowerPoint.Application")
    GetPowerPoint.Visible = True
  End If
End Function

 

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
30.07.2015 09:23:53 Gast97829
NotSolved
Blau Zwei Anwendungen Öffnen und hin und her switchen
 30.07.2015 10:09:57 Gast53202
Solved
30.07.2015 11:16:11 Gast47958
NotSolved
31.07.2015 16:51:02 Gast28727
NotSolved
30.07.2015 12:08:39 Gast74753
NotSolved
31.07.2015 16:50:23 Gast55387
NotSolved
31.07.2015 16:50:50 Gast94684
NotSolved