Word for UWP
画像の追加
Word for UWP の操作 > 基礎レベルの操作 > 画像の追加

Word ドキュメントにテキストに加えて画像を挿入して、全体的に見栄えをよくしたい場合があります。

次のコードでは、WordUtils という名前のクラスを使用します。このクラスは、システムの次の場所にある製品サンプル内に置かれています。
Documents\ComponentOne Samples\UWP\WordSamples
これらのクラスを上記の場所からアプリケーションで使用できます。

ドキュメントに画像を追加するには、次のコードを使用します。これは、画像をロードしてドキュメント内にスケッチします。

' ページ四角形を計算します(マージンを差し引いて)
Dim rcPage As Rect = WordUtils.PageRectangle(word)
Dim ras As New InMemoryRandomAccessStream()
' 書き込み可能なビットマップに画像をロードします
Dim wb As New WriteableBitmap(880, 660)
Dim file = Await StorageFile.GetFileFromApplicationUriAsync(New Uri("ms-appx:///WordSamplesLib/Assets/pic.jpg"))

wb.SetSource(Await file.OpenReadAsync())
Dim rcPic As New Rect(New Point(0, 0), New Point(word.PageSize.Width, word.PageSize.Height))

' アスペクト比を維持してページ上に描画します
word.DrawImage(wb, rcPic)
WordUtils.Save(word)
// ページ四角形を計算します(マージンを差し引いて)
Rect rcPage = WordUtils.PageRectangle(word);
InMemoryRandomAccessStream ras = new InMemoryRandomAccessStream();
// 書き込み可能なビットマップに画像をロードします
WriteableBitmap wb = new WriteableBitmap(880, 660);
var file = await StorageFile.GetFileFromApplicationUriAsync(new Uri("ms-appx:///WordSamplesLib/Assets/pic.jpg"));
            
wb.SetSource(await file.OpenReadAsync());
Rect rcPic = new Rect(new Point(0, 0), new Point(word.PageSize.Width, word.PageSize.Height));

// アスペクト比を維持してページ上に描画します
word.DrawImage(wb, rcPic);
WordUtils.Save(word);

上記のコードで、画像は書き込み可能なビットマップにロードされ、DrawImage メソッドを使用して描画されます。

上記のコードの出力は、次の図のようになります。