bmp画像をjpegやpng画像に圧縮する方法

#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:高圧縮