次の方法で共有

方法: プログラムによって文書に画像およびワードアートを追加する

  • [アーティクル]

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

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

デザイン時における画像の追加

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

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

  1. ドキュメント内で画像を挿入する位置にカーソルを置きます。

  2. リボンの [挿入] タブをクリックします。

  3. [図] グループの [図] をクリックします。

  4. [図の挿入] ダイアログ ボックスで、挿入する画像に移動し、[挿入] をクリックします。

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

実行時における画像の追加

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

カーソル位置に画像を挿入するには

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

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

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

デザイン時におけるワードアートの追加

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

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

  1. ドキュメント内でワードアートを挿入する位置にカーソルを置きます。

  2. リボンの [挿入] タブをクリックします。

  3. [テキスト] グループの [ワードアート] をクリックし、ワードアート スタイルを選択します。

  4. [ワードアート テキストの編集] ダイアログ ボックスでドキュメント内に表示するテキストを追加し、[OK] をクリックします。

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

実行時におけるワードアートの追加

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

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

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

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

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

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

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

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

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

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

アプリケーション レベルのアドインのカーソル位置にワードアートを追加するには

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

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

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

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

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

  2. アクティブ ドキュメント (または特定のドキュメント) の Shapes オブジェクトの AddTextEffect メソッドを呼び出します。

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

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

コードのコンパイル

  • C ドライブに SamplePicture.jpg という名前の画像ファイルが存在する必要があります。

参照

処理手順

方法: プログラムによって既存文書を開く

方法: プログラムによって Word 文書にテキストを挿入する

方法: プログラムによって検索後に選択範囲を復元する

方法: プログラムによって文書を保存する

概念

Office ソリューションの省略可能なパラメーター