ナレッジ ベース KB0219

think-cellの要素を挿入すると、要素はグラデーションになり、色形式の変更はできません

問題

高さ差異矢印(level difference arrow)値の線(value line)など、think-cellの機能を挿入すると、線がグラデーションで表示されます。線の色が変更できません。

グラデーションで表示された、高さ差異矢印(level difference arrow)

原因

PowerPointでは、プレゼンテーションまたはテンプレートごとに、既定の線スタイルを設定するオプションが提供されています。ただし、PowerPointのプログラミングインターフェースの制限により、現在の既定の線スタイルを変更する機能や変更のためのクエリを送信する機能など、機能を追加する方法はありません。

この問題はthink-cellを使用せずに再現できます。

think-cellを使用しないで再現

  1. PowerPointで新しいプレゼンテーションを開きます。
  2. [ホーム] → [図形描画] → []を選択して新しい線を挿入します。
  3. 線を右クリックし、 → [図形の書式設定]を選択し、[塗りつぶしと線] → [] → [線(グラデーション)]を選択します。
  4. 線を右クリックし、[規定の線に設定]を選択します。
  5. Alt + F11でVBAエディターを開きます。ブックを選択し、挿入、 → モジュールをクリックします。次に、黒の線を挿入しようとするInsertDefaultLine()マクロを貼り付け、[F5]を押して実行します。
Sub InsertDefaultLine()
    Dim sld As Slide
    Set sld = PowerPoint.ActiveWindow.View.Slide 'The current slide
    
    Dim ln As Shape
    Set ln = sld.Shapes.AddLine(10, 10, 250, 250) 'Add default line to slide
    ln.Select
    ln.Line.Weight = 20
    MsgBox "Now specifying a line color of black"
    ln.Line.ForeColor.RGB = Black
End Sub
挿入された線には、指定の色(黒)ではなく既定の線スタイルが反映されます。

解決策

この問題を解決するには、新しいグラデーションではない線を規定の線として設定する必要があります。

  1. [ホーム] → [図形描画] → []を選択して新しい線を挿入します。
  2. 線を右クリックし、→ [図形の書式設定]を選択し、[塗りつぶしと線] → [] → [線(単色)]を選択します。
  3. 線を右クリックし、[規定の線に設定]を選択します。

当社はMicrosoftに問い合わせ、グラデーションに関する設定を利用できるプログラミングのアクセス権の追加をリクエストしましたが、現時点でこのリクエストは却下されています。貴社にMicrosoft Officeサポートの連絡先があり、この問題についてMicrosoftに連絡して修正プログラムを要請なさりたい場合は、Microsoftケース番号117112417215306を使用してください。