KB0173: Microsoft Word または Excel での thinkcell charts

  1. ホーム
  2. リソース
  3. ナレッジ ベース
  4. KB0173

概要

現在、thinkcell charts は Microsoft PowerPoint でのみ作成できます。Microsoft Word または Excel で thinkcell charts を表示する必要がある場合は、次の方法があります。

  1. グラフの画像またはグラフィックを Microsoft Word [Excel] にコピー/貼り付けする
  2. Microsoft PowerPoint スライド全体の画像またはグラフィックを Microsoft Word [Excel] にコピー/貼り付けする
  3. Microsoft の Object Linking and Embedding 技術（OLE）を使用して、Microsoft PowerPoint オブジェクトを Microsoft Word [Excel] に埋め込む

解決策 1 & 2: グラフまたは PowerPoint スライド全体をコピー/貼り付けする

  1. PowerPoint でグラフまたはスライドを選択し、CTRL + C でコピーします
  2. Word [Excel] で、次の手順でグラフまたはスライドを貼り付けます:
    Home > Clipboard > Paste dropdown > Paste Special… > Picture (Enhanced Metafile)
    (Picture (Enhanced Metafile) として貼り付けると、画像品質の低下を防げます。)

スライド全体を貼り付ける場合は、Word [Excel] の Crop 機能を使用して、不要な部分を非表示にしたり、必要に応じて削除したりできます。

既知の問題: グラフを貼り付ける際、込み入った背景上のラベルの背景や軸の区切りが、貼り付けた画像で正しく表示されない場合があります。

軸の中断と背景が塗りつぶされたラベル

詳細情報と回避策については、こちらをご覧ください: もっと読む

これは Office 2007 以降の設計によるものです。PowerPoint の塗りつぶしタイプ Slide background fill は PowerPoint 固有のものであり、図形を他の Office プログラムにコピーしても、別の塗りつぶしタイプや色には変換されません。弊社は Microsoft に再考を依頼し、考え得るあらゆる手段を尽くしましたが、設計変更の要望は最終的に却下されました。Microsoft からの却下通知の該当部分を引用すると、「問題の原因について調査を実施しました。この動作は設計によるものと考えられます。Slide Background Fill は本質的に No Fill と同様に動作するためです。たとえば、ユーザーが図形に単色の塗りつぶしではなく画像の背景を選択していた場合、Word に変換されたときに塗りつぶしオプションは存在しないはずです。」

貴社が Microsoft Office のサポート契約をお持ちで、この問題について Microsoft に問い合わせたい場合は、ケース番号 114073011660776 または設計変更リクエスト Office14#903613 を参照してください。

回避策: VBA マクロを使用して、Background fill を使用しているすべての図形に白の背景色を設定します … もっと読む

  1. ALT + F11 で VBA エディターを開きます
  2. Insert > Module をクリックして新しいモジュールを挿入します
  3. 次の VBA コードをモジュールにコピー/貼り付けします: 
    	
	Sub PrepareCurrentSlideForCopyPaste()
	'Deactivate thinkcell temporarily
	Dim tcaddin As Object
	Set tcaddin = Application.COMAddIns("thinkcell.addin").Object
	Call tcaddin.ActivateAddIn(False)
	Do While tcaddin.IsAddInActive()
		 DoEvents
	Loop

	'Copy active slide into a new presentation
	ActiveWindow.View.Slide.Copy
	Dim pres As Presentation
	Set pres = Application.Presentations.Add
	Dim sld As SlideRange
	Set sld = pres.Slides.Paste

	'Loop through shapes and replace Background Fill with Solid Fill White
	Dim shp As Shape
	For Each shp In sld.Shapes
		If shp.Fill.Type = Office.msoFillBackground Then
			shp.Fill.Solid
			'For different background color change the RGB value
			shp.Fill.ForeColor.RGB = RGB(255, 255, 255)
		End If
	Next shp

	'PrepareChartForWMF
	Call tcaddin.ActivateAddIn(True)
	Do While Not tcaddin.IsAddInActive()
		DoEvents
	Loop
	End Sub
  4. PowerPoint に戻り、ALT + F8 を押してマクロを実行します。すべての図形で Background fill の代わりに白の Solid fill が設定された新しいスライドが作成されます。
  5. 新しいスライドに移動し、上記の手順でグラフをコピーして貼り付けます。
  6. この回避策は、影響を受ける各スライドで実行する必要がありますのでご注意ください。

解決策 3: PowerPoint オブジェクトを埋め込む

  1. PowerPoint でスライドを選択し、CTRL + C でコピーします
  2. Word [Excel] で、次の手順でスライドを貼り付けます:
    Home > Clipboard > Paste dropdown > Paste Special… > Microsoft PowerPoint Slide Object

この方法を使用すると、後から Word または Excel 内の Microsoft PowerPoint Slide Object の中で thinkcell グラフを変更できます。埋め込まれたスライドを右クリックします: Slide Object > Open。

  • 埋め込まれたスライドをダブルクリックしたり、Slide Object > Edit を使用したりする代わりに、Slide Object > Open を使用することをお勧めします。古い Microsoft Office 2013 バージョンでは、Edit の使用時に問題が発生していたためです。
  • 埋め込まれた PowerPoint スライド上の thinkcell グラフに Excel データ リンク (Excel データ リンク を参照) を使用している場合、データの変更は、スライド オブジェクトを開いた後にのみ PowerPoint で利用できるようになります。