Thema Datum  Von Nutzer Rating
Antwort
Rot Excel-Objekt nach PPT verlinken
25.04.2023 10:24:29 Philipp
NotSolved
25.04.2023 11:27:07 Der Steuerfuzzi
NotSolved

Ansicht des Beitrags:
Von:
Philipp
Datum:
25.04.2023 10:24:29
Views:
525
Rating: Antwort:
  Ja
Thema:
Excel-Objekt nach PPT verlinken

Liebe Excel-Freunde,
ich habe eine ganze Reihe an Diagrammenin Excel, die ich per VBA nach PowerPoint verschieben möchte.
Manuell funktioniert es super: ein Diagramm kopieren, nach PPT wecheln, dort "Inhalt einfügen --> Verknüpfung einfügen"
Per VBA Makro bekomme ich es nicht hin. Es werden alle Diagramm eingefügt, aber ohne Verlinkung.
Anbei der bestehende Code:


Sub CopyAllExcelChartsToPowerPoint()
    Dim sourceWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim sourceChart As Shape
    Dim PowerPointApp As Object
    Dim PowerPointPresentation As Object
    Dim PowerPointSlide As Object
    Dim chartNames As Variant
    Dim chartName As Variant
    Dim slideIndex As Integer

    ' Set the source workbook and worksheet
    Set sourceWorkbook = Workbooks.Open("F:\Spotlight_TABLES_2P_gesamt.xlsm")
    Set sourceWorksheet = sourceWorkbook.Worksheets("Sheet1")

    ' List of chart names to copy
    chartNames = Array("B1_ErsterEindruck", _
                        "B2_Design", _
                        "BP1_PräferenzVorAnwendung", _
                        "BP2_PräferenzVorAnwendungNachProdukt")
'Liste zu Testzwecken gelürzt


    ' Create an instance of PowerPoint or get an existing instance
    On Error Resume Next
    Set PowerPointApp = GetObject(class:="PowerPoint.Application")
    If PowerPointApp Is Nothing Then
        Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    End If
    On Error GoTo 0

    ' Open the target PowerPoint presentation
    Set PowerPointPresentation = PowerPointApp.Presentations("Spotlight_CHARTS_2P.pptx")

    slideIndex = 2

    ' Loop through the chart names
    For Each chartName In chartNames
        ' Set the chart to copy
        Set sourceChart = sourceWorksheet.Shapes(chartName)

        ' Copy the chart from Excel
        sourceChart.Copy

        ' Set the target slide
        Set PowerPointSlide = PowerPointPresentation.Slides(slideIndex)

        ' Paste the chart into PowerPoint as a linked object
        PowerPointSlide.Shapes.PasteSpecial DataType:=2

        ' Increment the slideIndex
        slideIndex = slideIndex + 1
    Next chartName

    ' Make PowerPoint visible
    PowerPointApp.Visible = True
    PowerPointApp.Activate
End Sub
 


Ich habe es bereits mit "jeglichen" DataTypes" zum Einfügen versucht, leider ohne Erfolgt.
Wo ist mein Denkfehler?

 

 

 


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 Excel-Objekt nach PPT verlinken
25.04.2023 10:24:29 Philipp
NotSolved
25.04.2023 11:27:07 Der Steuerfuzzi
NotSolved