KB0170: LibreOffice/OpenOffice の .odp ファイルで thinkcell charts を使用できますか？

問題

.odp ファイルを PowerPoint で開いた後、thinkcell の機能の大部分は失われます。一部の基礎となるグラフ本体は引き続き動作しますが、ほとんどの機能は存在しません（ラベル、矢印、ガント チャート、…）。

この問題は、たとえば次のような状況で発生する可能性があります。

1. OpenOffice.org または LibreOffice を使用している人と共同作業をしています。そのため、PowerPoint プレゼンテーション（.pptx または .ppt ファイル）を OpenDocument Presentation（.odp ファイル）として保存し、相手にファイルを渡します。その後、そのファイルを PowerPoint に再インポートします。
2. .odp ファイルを開き、thinkcell chart を挿入します。そのファイルを .odp ファイル形式で保存します。

説明

PowerPoint オブジェクトモデルでは、各 PowerPoint.Shape に、オブジェクトに関する追加情報を保存できる Tags コレクションがあります。thinkcell はこのようなタグを使用して、スライド上のどの図形が thinkcell に属するかを識別します（詳細については KB0073 を参照してください）。

PowerPoint はタグを .odp ファイル形式にエクスポートしません。特定の図形が thinkcell 図形であるという情報は失われます。

現在のスライド上のすべての図形とそのタグを一覧表示する次の VBA マクロを使用して、ご自身で確認できます： もっと読む

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