KB0170: Kann ich thinkcell-Diagramme in LibreOffice-/OpenOffice-.odp-Dateien verwenden?

  1. Startseite
  2. Ressourcen
  3. Knowledge Base
  4. KB0170

Problem

Nach dem Öffnen der .odp-Datei in PowerPoint geht der Großteil der thinkcell-Funktionalität verloren. Einige zugrunde liegende Diagrammkörper funktionieren weiterhin, die meisten Funktionen sind jedoch nicht vorhanden (Beschriftungen, Pfeile, Gantt-Diagramm, …).

Dieses Problem kann z. B. in den folgenden Situationen auftreten:

  1. Sie arbeiten mit einer Person zusammen, die OpenOffice.org oder LibreOffice verwendet. Daher speichern Sie Ihre PowerPoint-Präsentation (.pptx- oder .ppt-Datei) als OpenDocument-Präsentation (.odp-Datei), um die Datei an die andere Person weiterzugeben. Später importieren Sie die Datei wieder in PowerPoint.
  2. Sie öffnen eine .odp-Datei und fügen ein thinkcell-Diagramm ein. Sie speichern die Datei im .odp-Dateiformat.

Erläuterung

Im PowerPoint-Objektmodell verfügt jedes PowerPoint.Shape über eine Tags-Sammlung, in der zusätzliche Informationen zu Objekten gespeichert werden können. thinkcell verwendet solche Tags, um zu erkennen, welche Formen auf der Folie zu thinkcell gehören (Details finden Sie unter KB0073).

PowerPoint exportiert die Tags nicht in das .odp-Dateiformat. Die Information, dass bestimmte Formen thinkcell-Formen sind, geht verloren.

Sie können dies selbst überprüfen, indem Sie das folgende VBA-Makro verwenden, das alle Formen und ihre Tags auf der aktuellen Folie auflistet: Mehr lesen

Sub List_Tags()
  Dim oShape As PowerPoint.Shape
  Dim str As String
  Dim i As Integer
  For Each oShape In ActiveWindow.View.Slide.Shapes
    Debug.Print oShape.Name & "( " & oShape.Tags.Count & " tags)"
    For i = 1 To oShape.Tags.Count
      Debug.Print "    Tag(" & i & "): " & _
        "Name: " & oShape.Tags.Name(i) & ", " & _
        "Item:" & oShape.Tags.Item(i)
    Next i
  Next oShape   
End Sub

Um das Makro auszuführen, öffnen Sie den VBA-Editor mit Alt+F11. Wählen Sie Ihre Arbeitsmappe aus und klicken Sie auf Insert > Module. Fügen Sie das obige Makro ein und führen Sie es aus, indem Sie F5 drücken.