KB0170: Kann ich thinkcell-Diagramme in LibreOffice-/OpenOffice-.odp-Dateien verwenden?
- Startseite
- Ressourcen
- Knowledge Base
- 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:
- 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.
- 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.