人気マンガがだれでも無料♪電子コミック読み放題!!

http://oshiete.goo.ne.jp/qa/8809275.html

このページでbmp画像をtiff圧縮する方法を教えていただきました。


このプログラムを改良して
jpegやpng画像にも対応したプログラムを作ることはできないでしょうか?

恐らく、

   CLSIDFromString StrPtr("{E09D739D-CCD4-44EE-8EBA-3FBF8BE4FC58}"), .Guid ' 圧縮方法

というところを書き換えれば、他の形式にも対応できると思うのですが、
CLSIDFromString で検索しても、情報は見つかりませんでした。

どうか教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

#1,2です。

KenKen_SP様には失礼して、改造部分のコードを提示させていただきます。Win7Home(64) xl2010(32) で試しています。
出典:http://oshiete.goo.ne.jp/qa/5124395.html

' // Bitmapオブジェクトからファイルへ書き出し
Public Function SaveImageToFile( _
ByVal hBmp As OLE_HANDLE, _
ByVal sFilename As String, _
Optional ByVal sFormat As String = "JPG", _
Optional ByVal nQuarity As Long = 60 _
) As Boolean

'@ sFormat : BMP, JPG, GIF, TIF, PNG
'@ nQuality: 0-100(0:高圧縮低画質, 100:低圧縮高画質, Jpg のみ有効)

Dim sEncoderStr As String
Dim nStatus As Long

Select Case UCase$(sFormat)
Case "JPG": sEncoderStr = ENCODER_JPG
Case "GIF": sEncoderStr = ENCODER_GIF
Case "TIF": sEncoderStr = ENCODER_TIF
Case "PNG": sEncoderStr = ENCODER_PNG
Case Else: sEncoderStr = ENCODER_BMP
End Select

Dim uEncoderParams As EncoderParameters
' Jpeg のクオリティー設定
If UCase$(sFormat) = "JPG" Then
nQuarity = Abs(nQuarity)
If nQuarity > 100 Then nQuarity = 100
uEncoderParams.count = 1
With uEncoderParams.Parameter(0)
.GUID = pvToCLSID(QUALITY_PARAMS)
.TypeAPI = 4 ' Type Long
.Value = VarPtr(nQuarity)
.NumberOfValues = 1
End With
End If

' 保存処理
If UCase$(sFormat) = "JPG" Then
nStatus = GdipSaveImageToFile(hBmp, _
StrPtr(sFilename), _
pvToCLSID(sEncoderStr), _
VarPtr(uEncoderParams))
Else
nStatus = GdipSaveImageToFile(hBmp, _
StrPtr(sFilename), _
pvToCLSID(sEncoderStr), _
ByVal 0&)
End If
SaveImageToFile = CBool(nStatus = 0)
Call GdipDisposeImage(hBmp)

End Function

' // サンプル
Sub Sample()
Dim hBmp As OLE_HANDLE
Dim file1 As String

file1 = GetDesktopPath & "\Hydrangeas.bmp"
' GDI+ を初期化する
If GDIplus_Initialize() = False Then
MsgBox "GDI+ を初期化できません", vbCritical
Exit Sub
End If
'変換元ファイル読込
If GdipCreateBitmapFromFile(ByVal StrPtr(file1), hBmp) <> 0 Then
Gdiplus_Shutdown
Exit Sub
End If

' 保存(JPEG でクオリティー30の場合)
If SaveImageToFile(hBmp, GetDesktopPath & "\sample.jpg", "jpg", 30) = False Then
MsgBox "保存に失敗", vbCritical
Else
MsgBox "保存に成功", vbInformation
End If
' GDI+ を終了させる(必ず呼び出すこと)
Call Gdiplus_Shutdown
End Sub

'テスト用
Private Function GetDesktopPath() As String
Dim wScriptHost As Object, strInitDir As String
Set wScriptHost = CreateObject("Wscript.Shell")
GetDesktopPath = wScriptHost.SpecialFolders("Desktop")
Set wScriptHost = Nothing
End Function
    • good
    • 0
この回答へのお礼

うまくいきました。


ありがとうございます。

 

お礼日時:2014/11/09 14:26

#1です。

確認不足で申し訳ありません。
Function SaveImageToFileの中の、
下記が余分です。
nStatus = GdipCreateBitmapFromHBITMAP(hBmp, 0&, pNewImage)
これはHBITMAPオブジェクトから、ビットマップオブジェクトに変換する処理になります。

クリップボードから、CF_BITMAP指定で取得したデータは(GDIの描画結果を保持しておくために用いられる)デバイス依存ビットマップオブジェクトHBITMAPというものだそうで、上記の処理が必要になりますが、
GdipCreateBitmapFromFileが与えるのはデバイス非依存のビットマップオブジェクトなので、この変換処理が不要です。(行うと不具合が出ます)
という訳で、GdipCreateBitmapFromFileで取得したビットマップオブジェクトのハンドルを、GdipCreateBitmapFromHBITMAPを介さずに以降の処理に渡して下さい。
元の記事のかなりの改造になりますので、投稿は控えておきますが、KUZUYさんは、ご自分でこの程度の改造はできるスキルをお持ちとお見受けします。もし、うまくいかない場合は補足して下さい。
    • good
    • 0
この回答へのお礼

ありがとうございます。

nStatus = GdipCreateBitmapFromHBITMAP(hBmp, 0&, pNewImage)

を削除するだけではうまくいかないのですが。

その後の
SaveImageToFile = CBool(nStatus = 0)

などの改造する必要があると思いますがどのようにすれば良いでしょうか?
いろいろと試してみましたがわかりませんでした。

お時間あるときで構いませんので具体的に教えていただけないでしょうか?

お礼日時:2014/11/09 12:16

前のご質問であげられていたURLを辿っていくと存在するのですが、


http://oshiete.goo.ne.jp/qa/5124395.html
の#5のKenKen_SPさんの回答がご参考になるでしょう。
こちらでは、クリップボードから、
' Bitmap のハンドル(メモリ上のアドレスみたいなもの)を取得
hBmp = pvGetHBitmapFromClipboard()

としていますが、先のご質問で紹介したページにあるコードの、
'-- 元ファイル読込
  Dim image As Long
  If GdipCreateBitmapFromFile(ByVal StrPtr(file1), image) <> 0 Then Goto Finally
imageという変数が、上記のhBmpに相当します。
これらを組み合わせればお望みの事が出来ると思います。
明日は早いので試している時間が取れません。あしからず。
    • good
    • 0
この回答へのお礼

ありがとうございます。

#5のプログラムをそのままコピーした後に
下記のようにやってみましたが、
「保存に失敗」となってしまいます。

どこを改良すれば良いでしょうか?

急いでいるわけではありませんので、
週明けで構いませんのでご指示いただけないでしょうか?

よろしくお願いいたします。


option explicitに

Declare Function GdipCreateBitmapFromFile Lib "gdiplus" (filename As Any, bitmap As Long) As Long

を追加した上で、以下をsubにコピー。



Sub Sample()

Dim hBmp As OLE_HANDLE


Const file1 = "D:\Documents and Settings\desktop\新しいフォルダー\00000.bmp"
Const file2 = "D:\Documents and Settings\desktop\新しいフォルダー\00000.tif"
Const file3 = "D:\Documents and Settings\desktop\新しいフォルダー\00000.jpg"

' GDI+ を初期化する
If GDIplus_Initialize() = False Then
MsgBox "GDI+ を初期化できません", vbCritical
Exit Sub
End If


'-- 元ファイル読込
'Dim hBmp As Long
If GdipCreateBitmapFromFile(ByVal StrPtr(file1), hBmp) <> 0 Then GoTo Finally


' 保存(JPEG でクオリティー30の場合)
If SaveImageToFile(hBmp, file3, "jpg", 30) = False Then
MsgBox "保存に失敗", vbCritical
Else
MsgBox "保存に成功", vbInformation
End If

Finally:

' GDI+ を終了させる(必ず呼び出すこと)
Call Gdiplus_Shutdown



End Sub

お礼日時:2014/11/08 12:12

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qbmp画像をtiff圧縮する方法

VBAを使って、bmp画像をtiff圧縮するプログラムを教えてください。

検索すると

http://oshiete.goo.ne.jp/qa/8508126.html

画像圧縮、変換用のライブラリ を使えば良いという回答ページは見つかったのですが
具体的な方法が分かりません。

「画像 dll vba tif bmp」などで検索してみても分かりませんでしたので
教えてください。

Aベストアンサー

こちらはいかがでしょうか。
http://tanlab.blog.fc2.com/blog-entry-31.html

試してみたところ、ファイル名は、変数に変えてもOKでした。
Dim file1 As String, file2 As String

file1 = "C:\Users\Public\Pictures\Sample Pictures\Hydrangeas.jpg"
file2 = getDeskTopPath & "\test.tif"
(注)getDeskTopPathはデスクトップのパスを取得する自作(というかWebから切り貼りした)関数

GdipCreateBitmapFromFileは、BMP,JPEG,PNG,TIFF等に対応しています。

With encParam.Parameter(0)
    .Value = VarPtr(4) ' 画像圧縮:LZW=2, CCITT3=3, CCITT4=4, Rle=5, None=6
End With
圧縮方法については詳しくは無いですがVarPtr(2)のLZW等にするとカラーになりました。
なお、JPEGからLZW圧縮TIFFに変換したら巨大ファイルになりました。当たり前かも。

こちらはいかがでしょうか。
http://tanlab.blog.fc2.com/blog-entry-31.html

試してみたところ、ファイル名は、変数に変えてもOKでした。
Dim file1 As String, file2 As String

file1 = "C:\Users\Public\Pictures\Sample Pictures\Hydrangeas.jpg"
file2 = getDeskTopPath & "\test.tif"
(注)getDeskTopPathはデスクトップのパスを取得する自作(というかWebから切り貼りした)関数

GdipCreateBitmapFromFileは、BMP,JPEG,PNG,TIFF等に対応しています。

With encParam.Parameter(0)
 ...続きを読む

QオートシェイプをJPG保存

お世話になります。
オートシェープがいくつかシートに貼りついており
それをすべて選択してJPGとして別名保存がしたいのですが
可能でしょうか?
お分かりの方、ぜひ教えてください。
よろしくお願いいたします。

Aベストアンサー

こちらにあります。事前にグループ化する必要がある様です。
標準モジュールに貼り付けて、出力先のファイルパスだけいじってやると動きました。圧縮率の指定方法は分かりません。ご参考まで。
http://vbatips.blog37.fc2.com/blog-entry-26.html#more

Qエクセルのシートに貼りつけたbmpをjpegに

手持ちの本(4冊)やインターネットで探せなかったので、教えてください。

エクセルのシートに15枚の画像(bitmap)が貼られており

このままではファイルが重いので、同サイズのjpegに変換したいのですが・・・

手でやると 画像選択→切り取り→貼り付けセルを選択→型式を選択して貼り付け→図(jpeg)

以下マクロの記録

ActiveSheet.Shapes.Range(Array("図 11")).Select
Selection.Cut
Range("H60").Select
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:= _
False
End Sub

となります。

これをVBAで数10ファイル連続で実行したいのですが、1つ問題があります。

画像はカウント後に配列で取り込み順次処理していきますが、

同じ場所に同じ大きさで貼りたいのですが、元画像を貼り付けているセルの番地の

取得をどうしたらよいか悩んでいます  コレ → Range("H60").Select

画像が張り付いているセルは複数で左上のセルを選択して貼り付けしたいのですが・・・

貼り付けた画像(bitmap)は名前が自動的に振られているのでセルを指定して貼り付けると

元の位置に貼られない可能性があるので・・・

貼り間違いなどで、同じ位置でも図の名前(図11等)が違ってしまっている場合

説明が下手で申し訳ありませんが、ご存知の方よろしくお願いいたします。

手持ちの本(4冊)やインターネットで探せなかったので、教えてください。

エクセルのシートに15枚の画像(bitmap)が貼られており

このままではファイルが重いので、同サイズのjpegに変換したいのですが・・・

手でやると 画像選択→切り取り→貼り付けセルを選択→型式を選択して貼り付け→図(jpeg)

以下マクロの記録

ActiveSheet.Shapes.Range(Array("図 11")).Select
Selection.Cut
Range("H60").Select
ActiveSheet.PasteSpecial Format:="図 (JPEG)", Link:=False, Disp...続きを読む

Aベストアンサー

こんなところでいかがでしょうか。xl2010で(少しだけ)試しています。
ご参考まで。
Sub test()
Dim shp As Shape
Dim sh As Worksheet
Dim shpAddress As String

Set sh = ActiveSheet
For Each shp In sh.Shapes
If shp.Type = msoPicture Then
shpAddress = shp.TopLeftCell.Address
shp.Cut
sh.Range(shpAddress).Activate
sh.PasteSpecial Format:="図 (JPEG)", Link:=False, DisplayAsIcon:=False
End If
Next shp
End Sub

Qbmpファイルをgifやjpgに変換したいです。

写真と詳細入力情報の画面を一つのFormに作って、画面を保存するようにしました。アクティブウィンドウをクリップボードに貼り付けて、コモンダイアログで*.bmpファイル形式で保存するのですが、2MBくらいの大きさになってしまいます。gifやjpgは圧縮されるから小さくなると言われたのですが、直接もしくは間接(変換)にgifやjpgファイル形式で保存できるのでしょうか?どなたか、アドバイスしてくださいませ。

Aベストアンサー

要するにアクティブウィンドウをjpgファイルに保存したいのですよね。
プリンタの出力を画像ファイルに出力するプリンタドライバを使って、フォームを印刷する方が簡単です。

Bitmap Virtual Printer Pro
http://www.vector.co.jp/magazine/softnews/010516/n0105161.html

LEADTOOLS ePrint Printer Driver(2002/3/20発売)
http://www.grapecity.com/japan/support/database/P0_151_10389_News.htm

Qエクセルに画像を貼付け縮小する作業をマクロにしたいのですが、

エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
分からない部分があって困ってます。

(1)挿入したいセルにカーソルを合わせる
(2)マクロ
 挿入-図-ファイル-図の挿入-図の書式設定-サイズ-30%

この作業を覚えさせると以下になりました。

Sub Macro3()
ActiveSheet.Pictures.Insert("C:\Documents and Settings\デスクトップ\1.JPG") _
.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 360#
Selection.ShapeRange.Width = 480#
Selection.ShapeRange.Rotation = 0#
End Sub

これだと、写真が指定されてしまいます。
マクロの途中で止まって任意の写真を都度選べるようにできますか?
膨大な量の写真をセルに並べていきたいのです。

エクセルに画像を貼付け縮小する作業をマクロにしたいのですが、
分からない部分があって困ってます。

(1)挿入したいセルにカーソルを合わせる
(2)マクロ
 挿入-図-ファイル-図の挿入-図の書式設定-サイズ-30%

この作業を覚えさせると以下になりました。

Sub Macro3()
ActiveSheet.Pictures.Insert("C:\Documents and Settings\デスクトップ\1.JPG") _
.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 360#
Selection.ShapeRange.Width =...続きを読む

Aベストアンサー

私も画像の取り込みでマクロをいじった経験があります。
こういうのはどうでしょう?(今動作確認できないのですが…)

Sub test()
ActiveSheet.Pictures.Insert(Application.GetOpenFilename).Select
Selection.Height = Selection.Height * 0.3
Selection.Width = Selection.Width * 0.3
End Sub

Qbmp(ビットマップ)からjpg(ジェーペグ)に変換??

あの。bmp(ビットマップ)形式の画像を
jpg(ジェーペグ)に変換ってできないんですかねぇ??
もしできるのなら、やり方教えてもらいたいです(>_<)

Aベストアンサー

できます。
ウィンドウズのスタートページ⇒プログラムファイル⇒アクセサリ⇒ペイント

を開く。

BMPの画像を開いて、ファイルを保存する時、
ファイルの種類をJPGで保存すればいいのです。

QVBAで画像圧縮はできますか?

VBAを使って、
bmp画像ファイルをJPEGやTIFFファイルに圧縮したいのですが
可能でしょうか?

よろしくお願い致します。

Aベストアンサー

可能です。

画像圧縮、変換用のライブラリなんか使えば簡単です。

Google 検索 - 「画像 dll vba jpg bmp」
https://www.google.co.jp/#q=%E7%94%BB%E5%83%8F+dll++vba%E3%80%80jpg+bmp


そういう物を使わずに、自力で実装する事も絶対に出来ないとかって理由は無いです。

QExcelのVBAで画像読込→サイズ変更がしたい。

Excel2003を利用して仕事の工事写真帳を作成していますがVBAでどうしても上手くいかない部分があるので教えていただければと思い投稿しました。
【仕様】工事写真帳は1シート構成、用紙1枚に3枚画像が入り、画像の右側には摘要欄があります。画像を読み込む位置をダブルクリックするとセルのサイズ(写真サイズに結合してあります)を取得して画像サイズを変更して格納します。
【問題点】2枚以上画像を読み込んだ状態で実行すると目的の画像のサイズが変更にならない場合があります。
画像を削除したことで画像の名前が重複するのが原因だというところまではわかるのですが対処方法がわかりません。アドバイスをお願いします。

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

gyo = ActiveCell.Row '画像読込位置の取得
Set scel = Cells(gyo, 3)

scel.Select 'セルサイズの取得
w = Selection.Width
h = Selection.Height

fname = Application.GetOpenFilename _
("画像ファイル,*.gif;*.jpg;*.bmp", 1, "画像ファイルを指定して下さい") '画像読込
If fname = False Then
Exit Sub
End If
ActiveSheet.Pictures.Insert(fname).Select
i% = Selection.Index


Selection.Name = "gazou" & i '画像に名前をつける
Set 画像 = ActiveSheet.Shapes("gazou" & i)


With 画像 '画像のサイズ変更
.LockAspectRatio = False
.Placement = xlFreeFloating
.Placement = xlMove
.Width = w
.Height = h
End With

Range("F" & gyo).Select '摘要欄へ移動

End Sub

Excel2003を利用して仕事の工事写真帳を作成していますがVBAでどうしても上手くいかない部分があるので教えていただければと思い投稿しました。
【仕様】工事写真帳は1シート構成、用紙1枚に3枚画像が入り、画像の右側には摘要欄があります。画像を読み込む位置をダブルクリックするとセルのサイズ(写真サイズに結合してあります)を取得して画像サイズを変更して格納します。
【問題点】2枚以上画像を読み込んだ状態で実行すると目的の画像のサイズが変更にならない場合があります。
画像を削除したことで画...続きを読む

Aベストアンサー

画像にわざわざ名前をつける必要はあるのでしょうか?
(以下は一部抜粋して、少しだけ手を入れました)

Dim pict As String
 ActiveSheet.Pictures.Insert(fname).Select
 pict = Selection.Name
 With ActiveSheet.Shapes(pict) '画像のサイズ変更
  .LockAspectRatio = False
  .Placement = xlFreeFloating
  .Placement = xlMove
  .Width = w
  .Height = h
 End With

これなら画像を繰り返し削除しても大丈夫に思います

QエクセルVBAで画像を貼り付ける座標設定方法は?

Sheets("Sheet1")に貼り付けたJ-pegの画像(=シンボルマーク)を別なシートに貼り付けるのは下記のVBAで出来ました。ただ、これでは貼り付け先のシートのセルK12が、貼り付け元のK12と同じ位置でないと思った場所に張り付きません。
そこでセルで場所を指定するのではなく、座標のようなもので指定する方法はないものかと考えた次第です。
オートシェイプなどは座標指定で作成できるのですが、J-pegのような画像はどうすればいいのでしょうか?

Sub TEST()
Sheets("FACE").Shapes("シンボルマーク").Copy
ActiveSheet.Range("K12").Select
ActiveSheet.Paste
End Sub

Aベストアンサー

#1です。
>この場合、ファイルをエクセルにくっつけて渡すなんてこと
>はできないものでしょうか?(別々にではなくあくまでエク
>セルのブックに付属した形で)
Excelのブックに付属した形にするなら、コピーペーストする方がいいと思います。一旦挿入した画像を別途保存するのは、簡単には出来ないと思います。

複数のシートで同じような作業をするなら、次のような方法も考えられます。
Function CpyMrk(MrkNM As String, myTop As Single, myLeft As Single)
Sheets("FACE").Shapes(MrkNM).Copy
ActiveSheet.Paste
ActiveSheet.Shapes(MrkNM).Top = myTop
ActiveSheet.Shapes(MrkNM).Left = myLeft
End Function

Sub test()
CpyMrk "シンボルマーク", 10, 10
End Sub

QVBAでJPGサイズ変更

VBAで
1.JPGファイルを読み込み
2.読み込んだJPGファイルの画像サイズ変更
3.再度JPG出力

の処理を行いたいのですが、どなたか分かる方がいますでしょうか?
サンプルコード、関連サイトなど教えていただけると幸いです。

お時間のある方、是非教えてください。

Aベストアンサー

某掲示板でshiraさんという方から教わったコードをアレンジさせていただきました。宣言部は別途投稿します。
Sub test()
Dim src As String,dst As String

src="c:\s.jpg"
dst="c:\d.jpg"
If Dir(dst) <> "" Then Kill (dst)
Call resizePicture(src,dst,20,7,70)
End Sub

Function resizePicture(ByVal srcPath As String,_
ByVal dstPath As String,_
Optional ByVal scalerate As Long=100,_
Optional ByVal InterpolationMode As InterpolationMode=InterpolationModeHighQualityBicubic,_
Optional ByVal jpegQuality As Long=85)
Dim IID_IDispatch As GUID
Dim pd As PICTDESC
Dim udtInputAs GdiplusStartupInput
Dim lngTokenAs Long,lngStatus As Long
Dim pGraphics As Long
Dim pSrcBmp As Long,pDstBmp As Long
Dim lngWidthAs Long,lngHeight As Long
Dim EncodParameters As EncoderParameters

udtInput.GdiplusVersion=1
If GdiplusStartup(lngToken,udtInput,ByVal 0&)<>0 Then
Exit Function
End If

If GdipCreateBitmapFromFile(ByVal StrPtr(srcPath),pSrcBmp)<>0 Then
GdiplusShutdown lngToken
Exit Function
End If

GdipGetImageWidth pSrcBmp,lngWidth
GdipGetImageHeight pSrcBmp,lngHeight
lngWidth=lngWidth * scalerate \ 100
lngHeight=lngHeight * scalerate \ 100

If GdipGetImageGraphicsContext(pSrcBmp,pGraphics)=0 Then
lngStatus=GdipCreateBitmapFromGraphics(lngWidth,lngHeight,pGraphics,pDstBmp)
GdipDeleteGraphics pGraphics
If lngStatus=0 Then
If GdipGetImageGraphicsContext(pDstBmp,pGraphics)=0 Then
GdipSetInterpolationMode pGraphics,InterpolationMode
GdipDrawImageRectI pGraphics,pSrcBmp,0,0,lngWidth,lngHeight
GdipDeleteGraphics pGraphics
EncodParameters.Count=1
With EncodParameters.Parameter(0)
.GUID=ConvCLSID(CLSID_Quality)
.NumberOfValues=1
.Type=4
.Value=VarPtr(jpegQuality)
End With
Call GdipSaveImageToFile(pDstBmp,StrPtr(dstPath),ConvCLSID(CLSID_JPEG),VarPtr(EncodParameters))
End If
GdipDisposeImage pDstBmp
End If
End If
GdipDisposeImage pSrcBmp
GdiplusShutdown lngToken
End Function

Private Function ConvCLSID(ByVal sGuid As String) As GUID
CLSIDFromString StrPtr(sGuid),ConvCLSID
End Function

某掲示板でshiraさんという方から教わったコードをアレンジさせていただきました。宣言部は別途投稿します。
Sub test()
Dim src As String,dst As String

src="c:\s.jpg"
dst="c:\d.jpg"
If Dir(dst) <> "" Then Kill (dst)
Call resizePicture(src,dst,20,7,70)
End Sub

Function resizePicture(ByVal srcPath As String,_
ByVal dstPath As String,_
Optional ByVal scalerate As Long=100,_
Optional ByVal InterpolationMode As InterpolationMode=InterpolationModeHighQualityBicubic,_
Op...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング