プログラムによって文書に画像と Word アートを追加する
[アーティクル]
06/19/2023
12 人の共同作成者
フィードバック
この記事の内容
適用対象: Visual Studio Visual Studio for Mac Visual Studio Code
デザイン時または実行時に、画像および描画オブジェクトをドキュメントに追加できます。 ワードアートでは、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 アドインでカーソル位置にワードアートを追加するには
現在のカーソル位置の左と上の位置を取得します。
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.Application.ActiveDocument.Shapes.AddTextEffect(
Office.MsoPresetTextEffect.msoTextEffect29, "SampleText",
"Arial Black", 24, Office.MsoTriState.msoFalse,
Office.MsoTriState.msoFalse, leftPosition, topPosition);
Me.Application.ActiveDocument.Shapes.AddTextEffect( _
Office.MsoPresetTextEffect.msoTextEffect29, "SampleText", _
"Arial Black", 24, Office.MsoTriState.msoFalse, _
Office.MsoTriState.msoFalse, leftPosition, topPosition)
コードのコンパイル
ドライブ C 上に SamplePicture.jpg という名前の画像が存在する必要があります。
関連項目