Gibt es eine Möglichkeit zu sagen, PowerPoint nicht öffnen Sie Excel beim erstellen von Diagrammen?

Slide.Shapes.AddChart() öffnet automatisch Excel. Auch wenn ich schnell Chart.ChartData.Workbook.Application.Visible = false ist, zeigt es eine kleine Weile. Dies macht die Automatisierung der Diagrammerstellung Fehler-anfällig als der Benutzer hat, um zu versuchen, nicht zu berühren die Excel-Anwendungen, hält aufspringen.

Öffnen einer Präsentation mit WithWindow = false wird immer noch öffnen Sie Excel bei der Erstellung neuer charts.

InformationsquelleAutor simendsjo | 2012-07-17

8

Dieses Verhalten ist "by design", und Microsoft ist nicht daran interessiert, verändert. Dies ist der Weg, die UI-Funktionen.

Was Sie tun könnte, wäre zum erstellen des Diagramms in Excel (entweder mithilfe der interop-oder OpenXML), importieren (einfügen), die Datei in PowerPoint.

Prüfen Sie diesen link aus MSDN

Habe ich noch nicht getestet, aber wie unterscheidet sich dies von Folie.AddChart? Nicht öffnen Sie die Excel-Arbeitsmappe automatisch?
Code hat auch die erforderlichen Daten für Diagramm erstellen. So ist es vielleicht nicht popup-excel. Ich konnte nicht versuchen, die obigen code verwende ich selten windows.
Es ist genau das, was ich Tue (Formen.AddChart), also es öffnet sich excel auch beim Aufruf von code
aktualisiert meine Antwort. Dieses Verhalten ist auch in Microsoft office 2013 consumer preview.
Ich sehe.. Es ist ein schreckliches design! Ich bin mir gekämpft PowerPoint für fast 2 Wochen jetzt und es ist ziemlich offensichtlich, es ist nicht geschaffen, um ermöglichen die nahtlose Automatisierung. Das problem, das erstellen des Diagramms in excel hinzufügen, um PowerPoint hat mehrere Probleme. Die Grafik ist nicht "integriert" mit PowerPoint und öffnen von Excel für die Bearbeitung, und auch PowerPoint-Funktionen wie Farb-Themen, die nicht funktioniert. Die OpenXML-Lösung ist etwas, was ich werde die Forschung für die nächste version, nur brauchen, um es aus der Tür 🙂

InformationsquelleAutor 465544
1

Hier ist eine mögliche Arbeit um.
```
Sub ChartExample()
Dim s As Shape
Set s = Application.Presentations(1).Slides(1).Shapes.AddOLEObject(ClassName:="Excel.Chart")
End Sub
```
Würden Sie dann manipulieren Sie das Diagramm, das Sie Hinzugefügt haben, über die s.OLEFormat.Object. Ich habe nur etwas experimentiert, aber es nicht öffnen einer externen Excel-Anwendung, und ich konnte nicht sehen, keine extremen flackern, es sei denn, ich aktiviert das Objekt. Ein trade-off ist, dass zumindest in Powerpoint 2010, die Sie benötigen, zu konvertieren, um alle features verwenden. Wenn dies nicht funktioniert, können Sie immer versuchen web-Komponenten.

Bearbeiten:
Ich verstehe nicht, warum diese Methode führt zu einem problem, sondern zu versuchen, helfen hier weiter, ist ein wenig mehr code, der zeigt tatsächlich die Manipulation des Objekts. Dies wurde geschrieben, mit Objekten anstelle von Arbeitsmappen etc, so dass keine Verweise gemacht werden müssen. Es nur die Anforderungen der Benutzer müssen Excel auf Ihrem Computer.
```
Option Explicit
Const xlcolumns = 2
Sub ChartExample()
Dim s As Shape
Dim wb As Object, chart As Object, data As Object
Set s = Application.Presentations(1).Slides(1).Shapes.AddOLEObject(ClassName:="Excel.Chart")
Set wb = s.OLEFormat.Object
Set chart = wb.Sheets(1)
Set data = wb.Sheets(2)
'Set the range for the chart data
chart.setsourcedata Source:=data.Range("A1:C7"), PlotBy:= _
        xlcolumns
'Update data values for the chart
data.Range("B1").Value = "Column Label 1"
data.Range("C1").Value = "Column Label 2"
data.Range("A2:C7").clearcontents
data.Range("A2").Value = "Row Label"
data.Range("B2").Value = 7
data.Range("C2").Value = 11
End Sub
```
Ich möchte die Daten für das Diagramm präsentieren in powerpoint zu. Es scheint, muss ich einbetten oder verknüpfen einer Excel-Arbeitsmappe, um dies zu nutzen, was wahrscheinlich noch schlimmer ist für meinen Anwendungsfall leider nicht.
Die Daten in Tabelle1 der Excel.Diagramm-Objekt, das Sie ändern können, über den code. Siehe meine bearbeitete Antwort.
Danke, aber diese eben noch "funktioniert". Das Diagramm ist nun als Bild, sondern als eine tatsächliche chart. PowerPoint nicht Bearbeiten, das Diagramm, wie er Hinzugefügt wurde, durch PowerPoint. Sie kann nicht angewendet werden, eine Diagramm-Vorlage, nachdem Sie es Hinzugefügt haben, (oder Sie kann es einfach nicht tun). Es ist nicht zu einem Diagramm Hinzugefügt werden Platzhalter, etc etc etc...
Alles in Ordnung, ich hatte keine Ahnung, Sie hatte so viele spezifische Anforderungen für das Diagramm. Sorry das ist keine Wert, um Sie.
Wahrscheinlich sollte ich angegeben haben, es ein bisschen mehr. Es sollte möglich sein einige optionale post-processing, um das Diagramm aus PowerPoint, nachdem es Hinzugefügt wurde. Es ist das erste mal, dass ich bin automatisieren von PowerPoint, und ich bin ganz verwirrt von den vielen Macken, ich bin gestolpert schon.. ich fürchte, ich werde sagen, die Benutzer, um nicht berühren Ihre Maschinen, während die Beiträge generiert werden - glaube nicht, dass ich ' ll bekommen eine Medaille für das Verhalten :/

InformationsquelleAutor Daniel

Ich würde vorschlagen, ein weiteres methdology auf über kommen, das gleiche.

Im powerpoint-VBA-add refrences "Microsoft Excel 12.0 Object Library"
Gewährleistet der Benutzer, dass für diesen Vorgang keine der excel geöffnet sein muss, über yuser form popup vor der operation.
In der VBA-erstellen eines excel und seine Parameter in der folgenden code
Fügen Sie die powerpoint-chart, der user wäre nicht in der Lage zu sehen, die Eröffnung der zugrunde liegenden excel-Tabelle auf hinzufügen Diagramm excet die excel-tabs, die kann gesteuert werden über den code.

Beispielcode:

Option Explicit

Sub AddExcelChartSample()

    Dim xlApp As Excel.Application, xlWkbk As Excel.Workbook

    Dim pres As PowerPoint.Presentation, sld As PowerPoint.Slide, iCount As Integer, chtShape As PowerPoint.Shape

    'Open up the excel instance and set parameters


    Set xlApp = New Excel.Application
    With xlApp
        .WindowState = xlNormal
        .Top = -1000
        .Left = -1000
        .Height = 0
        .Width = 0
    End With


    Set sld = PowerPoint.ActiveWindow.View.Slide



    For iCount = 1 To 10

        Set chtShape = sld.Shapes.AddChart(xlLine)
        Set xlWkbk = chtShape.Chart.ChartData.Workbook
        With xlWkbk

            .Sheets(1).Range("A2").Value = "Test 1"
            .Sheets(1).Range("A3").Value = "Test 2"
            .Sheets(1).Range("A4").Value = "Test 3"

        End With

        chtShape.Chart.Refresh

        xlWkbk.Close False


    Next iCount


    xlApp.Quit

End Sub

InformationsquelleAutor

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.