Thinkcell Datei in Powerpoint aktualisieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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...

' 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) '''''''

Hallo,
Du hattest *zwei* Probleme:
- think-cell 5.2 kennt die Funktion tcaddin.UpdateChart() noch nicht, und auch nicht die Option der Namensvergabe für die Charts. Beides hängt zusammen (du musst ja in UpdateChart() einen Namen übergeben, den du dementsprechend vorher an ein Chart vergeben musst). Du musst für die ganze Sache die Version 5.3 installieren.
- Nachdem du 5.3 installiert hast, muss tcaddin.UpdateChart() mit dem korrekten Boolean aufgerufen werden (True/False). Dieser Teil in deinem Code ist jetzt korrekt, das hilft aber nur, wenn du think-cell 5.3 hast.
Mit think-cell 5.2 kannst du stattdessen die Funktion PresentationFromTemplate() verwenden. Damit kannst du die gleichen Ergebnisse auf etwas andere Art erreichen. Bei PresentationFromTemplate() musst du vorher aber (im Unterschied zu UpdateChart()) mit think-cell die Excel-Datenverknüpfungen zwischen der Excel Arbeitsmappe und den Charts in der Präsentation erzeugen - also so, wie in Kapitel 14 beschrieben: http://www.think-cell.com/support/documentation/exceldatalinks.shtml
Das macht die Sache oft auch einfacher, weil du eine visuelle Kontrolle der verknüpften Datenbereiche machen kannst.
Beste Grüße,
Dein think-cell Support Team

Beliebteste Forumthreads (12 Monate)

Thinkcell Datei in Powerpoint aktualisieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Thinkcell Datei in Powerpoint aktualisieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread