プログラムによって文書に画像と Word アートを追加する

[アーティクル]
01/13/2024

デザイン時または実行時に、画像および描画オブジェクトをドキュメントに追加できます。ワードアートでは、Microsoft Office Word ドキュメントに装飾的なテキストを追加することができます。これらの特別なテキスト効果は、ドキュメントに挿入できる、カスタマイズ可能な描画オブジェクトです。

適用対象: このトピックの情報は、Word のドキュメントレベルのプロジェクトおよび VSTO アドインのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクトの種類別の使用可能な機能」を参照してください。

デザイン時に画像を追加する

ドキュメントレベルのカスタマイズを開発している場合は、デザイン時にドキュメントに画像を追加できます。

デザイン時に Word 文書に画像を追加するには

ドキュメント内の画像を挿入する場所にカーソルを置きます。
リボンの [挿入] タブをクリックします。
[図] グループで、[画像] をクリックします。
[図の挿入] ダイアログボックスで、挿入する画像に移動し、[挿入] をクリックします。

画像が、ドキュメントの現在のカーソル位置に追加されます。

実行時に画像を追加する

現在のカーソル位置でドキュメントに画像を挿入できます。

カーソルの場所に画像を追加するには

InlineShapes コレクションの AddPicture メソッドを呼び出し、ファイル名を渡します。

this.Application.Selection.InlineShapes.AddPicture(@"C:\SamplePicture.jpg");

Me.Application.Selection.InlineShapes.AddPicture("C:\SamplePicture.jpg")

デザイン時にワードアートを追加する

ドキュメントレベルのカスタマイズを開発している場合は、デザイン時にドキュメントにワードアートを追加できます。

デザイン時にワードアートを Word ドキュメントを追加するには

ドキュメント内のワードアートを挿入する場所にカーソルを置きます。
リボンの [挿入] タブをクリックします。
[テキスト] グループで、[ワードアート] をクリックし、ワードアートのスタイルをクリックします。
文書内に表示するテキストを、[ワードアートテキストの編集] ダイアログボックスに追加し、[OK] をクリックします。

選択したワードアートスタイルが適用されたテキストが、ドキュメントに追加されます。

実行時にワードアートを追加する

現在のカーソル位置でドキュメントにワードアートを挿入できます。ドキュメントレベルのカスタマイズと VSTO アドインでは、手順が異なります。

ドキュメントレベルのカスタマイズで、カーソル位置にワードアートを追加するには

現在のカーソル位置の左と上の位置を取得します。

float leftPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdHorizontalPositionRelativeToPage];

float topPosition = (float)this.Application.Selection.Information[
    Word.WdInformation.wdVerticalPositionRelativeToPage];

Dim leftPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdHorizontalPositionRelativeToPage)

Dim topPosition As Double = Me.Application.Selection.Information( _
    Word.WdInformation.wdVerticalPositionRelativeToPage)

ドキュメント内の Shapes オブジェクトの AddTextEffect メソッドを呼び出します。

this.Shapes.AddTextEffect(Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
    "Arial Black", 24, Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse,
    leftPosition, topPosition);

Me.Shapes.AddTextEffect( _
    Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
    "Arial Black", 24, _
    Office.MsoTriState.msoFalse, Office.MsoTriState.msoFalse, _
    leftPosition, topPosition)

VSTO アドインでカーソル位置にワードアートを追加するには