Thinkcell Datei in Powerpoint aktualisieren

kultnoob · 2013-07-15T15:07:47+00:00

Hallo zusammen, meine Kenntnisse in VBA sind einfache Basiskenntnisse. Bei meiner jetzigen Herausforderungen stoße ich aber an meine Grenze. Zu meiner Frage/Herausforderung. Ich habe eine Auswertung, in welcher eine Verlinkung zu einer Powerpoint mit einem Thinkcelldiagramm vorhanden ist. Im Grunde möchte ich nur: 1. Auswertung erstellen (klappt alles) 2. Powerpoint öffnen (klappt auch) 3. Powerpoint Thinkcell Wasserfalldiagramm aktualisieren (ERROR... klappt nicht) 4. Powerpoint speichern (das krieg ich hin wenn ich Punkt 3 habe) 5. Excelauswertungsdatei unter aktuellem Datum speichern (klappt auch) Auf der Thinkcellhomepage gibt es einen Bereich, in welcher dies erklärt wird doch leider habe ich nun nach mehreren gescheiterten Versuchen den Entschluss gefasst hier im Forum um Hilfe zu bitten. Link: http://www.think-cell.com/de/support/documentation/programming.shtml Die manuelle Aktualisierung funktioniert auch. Doch mir geht es hier erstens um die Erweiterung meiner Kenntnisse um VBA und zweitens um einen Automatismus in der Erstellung der Auswertung.

Hallo lieber Support,
Habe nun einen anderen Weg gefunden. Den Code habe ich leider nicht hinbekommen. Aber dafür habe ich herausgefunden, dass man einstellen kann, dass sich das Thinkcellwasserfalldiagramm selbst aktualisiert sobald die Exceldatei und die Powerpointdatei geöffnet sind.
Ich öffne die Datei, es aktualisiert sich alles und dann wird die Excel-Datei gespeichert und geschlossen
Zwar ist die Lösung nicht ganz optimal aber vollkommen ausreichend. Sind halt nun doch ein paar Klicks mehr.
In diesem Sinne... ERLEDIGT!!!
Zum Fehler im Code... Anbei eine ausführliche Beschreibung. Habe versucht nochmal alles erneut darzustellen.
Habe mir die Informationen unter dem genannten Link mehrfach durchgelesen.
Step 1: Im VBA Editor unter Extras -> Verweise Microsoft Powerpoint 14.0 Object Library aktiviert (sonst meckert VBA beim Code Set ppapp = New PowerPoint.Application)
Step 2: Code in ein leeres Modul eingefügt (Links wurden entfernt bzw. unkenntlich gemacht)

' To use this sample, go to Tools - References
' and add the Microsoft PowerPoint Object Library.
Sub UpdateChart_Sample()
' Get the range containing the new data
Dim rng As Excel.Range
Set rng = _
ActiveWorkbook.Sheets(2).Range("F1:O11")
' Get the think-cell add-in object
Dim tcaddin As Object
Set tcaddin = _
Application.COMAddIns("thinkcell.addin").Object
' Get a PowerPoint instance. Hold on to this
' object as long as you want to access the
' generated presentations. There can only be a
' single PowerPoint instance. If there is no
' PowerPoint running, one will be started.
' Otherwise the existing one is used.
Dim ppapp As Object
Set ppapp = New PowerPoint.Application
Dim pres As PowerPoint.Presentation
' PowerPoint window visible
Set pres = ppapp.Presentations.Open( _
Filename:="PFAD ZUR DATEI\Test Datei.pptx", Untitled:=msoTrue)
' PowerPoint window invisible
'   Set pres = ppapp.Presentations.Open( _
'    Filename:="c:\\example.pptx", Untitled:=msoTrue, _
'    WithWindow:=msoFalse)
' The name "ChartNo1" must have been
' previously assigned to the chart using
' the control in the floating toolbar
Call tcaddin.UpdateChart(pres, "ChartNo1", rng, No) '''''''

Code Zeile:
Call tcaddin.UpdateChart(pres, "ChartNo1", rng, No) erscheint der Fehler:
Laufzeitfehler '438'
Objekt unterstützt diese Eigentschaft oder Methode nicht
Die Powerpointdatei öffnet sich und öhm ja, aber dann kommt halt dieser Fehler.
Ich habe versucht das aktuelle Diagramm zu nehmen und dies zu aktualisieren doch leider bekomme ich aufgrund meiner einfachen Basiskenntnisse dieses Problem nicht gelöst.
Die Beschreibung unter dem Link:
http://www.think-cell.com/de/support/documentation/programming.shtml
finde ich kompliziert erklärt. Zu wenig Erklärungen in meinen Augen aber ich bin ja Anfänger in dieser Materie.
Ich denke, bei dem Fehler handelt es sich um eine Deklaration oder ähnliches aber ich weiß es nicht.
Ebenso verstehe ich folgendes ebenso nicht:
Wo kann ich denn einen Namen vergeben. Habe mich wirklich durch die Knowledgebase geklickt doch leider ohne Erfolg.
C.1.1 Namensauswahl für UpdateChart
In der unverankerten Symbolleiste eines Diagramms verfügbar (siehe Formatierung und Stil). Sie können einen beliebigen, eindeutigen Namen festlegen, um das Diagramm zu identifizieren, wenn Sie die Funktion UpdateChart zur Aktualisierung der Daten des Diagramms aufrufen.
C.1.2 Signatur
tcaddin.UpdateChart( _
pres As PowerPoint.Presentation, _
strName As String, _
rgData As Excel.Range, _
bTransposed As Boolean _
)
Oder ist dabei einfach eine Deklaration der Grafik innerhalb des Codes gemeint? Wenn ich ein Wasserfalldiagramm habe deklariere ich es einfach mit Wasser1...!?
Zum Kontakt mit dem Support von Thinkcell... Ja, das könnte ich doch läuft eigentlich alles über unsere eigene IT. Doch in diesen Fragen können die mir nicht weiterhelfen was Programmierung betrifft. Und bevor ich hier Kontakt aufnehme und später Ärger mit der IT bekomme... Mhhh dann lieber in so einem Forum. Hoffe Ihr versteht das.
Im Grunde interessiert es mich schon wie der richtige Code lauten würde.
Eine Lösung habe ich bereits. Die ist bisher ausreichend aber natürlich will ich lernen und der Code würde mir dabei helfen. Wenn ich nur wüsste, woran es liegt...

Hallo lieber Support,
zum Ergebnis des Codes muss ich leider eine schlechte Nachricht verkünden. Falls ich es richtig verstanden habe, müsste der Code nun folgendermaßen aussehen.


' To use this sample, go to Tools - References
' and add the Microsoft PowerPoint Object Library.
Sub UpdateChart_Sample()
' Get the range containing the new data
Dim rng As Excel.Range
Set rng = _
ActiveWorkbook.Sheets(2).Range("F1:O11")
' Get the think-cell add-in object
Dim tcaddin As Object
Set tcaddin = _
Application.COMAddIns("thinkcell.addin").object
' Get a PowerPoint instance. Hold on to this
' object as long as you want to access the
' generated presentations. There can only be a
' single PowerPoint instance. If there is no
' PowerPoint running, one will be started.
' Otherwise the existing one is used.
Dim ppapp As Object
Set ppapp = New PowerPoint.Application
Dim pres As PowerPoint.Presentation
' PowerPoint window visible
Set pres = ppapp.Presentations.Open( _
Filename:="PRAD ZUR DATEI\TEST.pptx", Untitled:=msoTrue)
' PowerPoint window invisible
'   Set pres = ppapp.Presentations.Open( _
'    Filename:="c:\\example.pptx", Untitled:=msoTrue, _
'    WithWindow:=msoFalse)
' The name "ChartNo1" must have been
' previously assigned to the chart using
' the control in the floating toolbar
Call tcaddin.UpdateChart(pres, "ChartNo1", rng, False) '''''''

In der selben Codezeile erscheint erneut die Fehlermeldung:
Laufzeitfehler '438':
Objekt untertützt diese Eigenschaft oder Methode nicht.
Dementsprechend fehlt wahrscheinlich wieder eine Deklaration bzw. eine Deklaration ist falsch. Innerhalb des Codes habe ich NO durch FALSE eingegeben da wie beschrieben ein Typ mit der Deklaration Boolean nur True oder False sein kann. Leider erneut ohne Erfolg. Fehlt innerhalb meines Codes etwas? Oder gibt es Kompatibilitätsprobleme da die verwendete Thinkcell Version 5.2 ist?
Vielleicht verursache ich den Fehler aufgrund eines Missverständnisses...
Innerhalb der Excel-Datei habe ich bereits einen Teil markiert der mir in Thinkcell im Wasserfalldiagramm ausgegen werden soll. Der Code ist doch dafür gedacht, das vorhandene Thinkcelldiagramm zu aktualisieren. Dabei habe ich im Code den Bereich (.range) angegeben, was ich in der Excel-Datei bereits markiert habe. hier muss zwischen Überschrift, welche im Diagramm die einzelnen Säulen beschriftet und Zahlen eine Leerzeile vorhanden sein. Ebenso wurde links noch eine Spalte frei gelassen. Dort wird später Category (F1) automatisch eingetragen (.range("F1:O11" im Code). Darunter in F2 setht 100%= Series. Hat der Code damit ein Prolbem?
Ist nur eine Frage aber vielleicht suchen wir an der falschen Stelle...
Über Hilfe bin ich dankbar.

Thinkcell Datei in Powerpoint aktualisieren

Forumthread: Thinkcell Datei in Powerpoint aktualisieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial