マルチTIFFを1ページ1ファイルに分割して保存するには？ (ID:79278)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 １ファイル複数ページで出来ているTIFFファイルを1ページ毎に ファイルとして保存したいのですが、やり方が良く判らなかったので imgedit.ocxで読み込んだTIFFファイルを１ページづつクリップボード経由で PictureBoxに入れて保存するプログラムを作ってみました。 泥臭いやり方ですが、一応TIFFファイルの分割は出来たものの、元のファイル に比べて非常にサイズが大きくなってしまい（3ページで60kバイトが1ページで280kバイトになる）、 さらにwindowsについているイメージングでしか表示出来ない形式のファイルに なってしまって、これでは使い物になりません。 なんとか元と同じ形式のTIFFファイルにしたいのですが、どう修正すれば良いのか 不明で、どなたか判る方いませんか？ プログラムは一連の処理の部分を抜き出したものを以下に書きます。 OSはWindows2000でVB.netを使用しています。 ＜＜＜以下が作成したプログラムの抜粋です＞＞＞ 'TIFFファイルの読み込み AxImgEdit1.Image = "aaaaa.tif" '２ページ目を指定 AxImgEdit1.Page = 2 'TIFFイメージをimgeditに表示 AxImgEdit1.Display() 'クリップボードにコピー AxImgEdit1.ClipboardCopy(0, 0, AxImgEdit1.ImageScaleWidth, _ AxImgEdit1.ImageScaleHeight) 'クリップボードからピクチャーボックスに貼り付け Dim d As IDataObject = Clipboard.GetDataObject() Dim img As Image = CType(d.GetData(DataFormats.Bitmap), Image) If Not (img Is Nothing) Then '抜き出したページをPictureBoxに表示 PictureBox1.Image = img '新しいファイルとして保存 PictureBox1.Image.Save("bbbbb.tif", Imaging.ImageFormat.Tiff) End If ＜＜＜ここまで＞＞＞